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ABSTRACT 


A computer  program  that  utilizes  the  method  of  Integral 
relations  has  been  developed  at  the  Naval  Ship  Research  and 
Development  Center  for  use  In  determining  the  inviscid  transonic 
flows  past  lifting  airfoils.  It  allows  for  a change  of  entropy 
across  the  shock  wave  and  accounts  for  the  presence  of  an  oblique 
or  normal  shock  at  the  shock  foot.  Since  many  iterations  of  the 
trial  and  error  type  are  required  to  obtain  the  converged  flow 
solution,  the  program  has  been  adapted  for  use  on  the  interactive 
graphic  systems  of  the  CDC  6700  computer.  This  minimizes  the 
man-machine  interaction  time  involved  with  such  iterations.  It 
has  been  applied  to  several  airfoil  cases  with  supercritical  flow 
on  the  upper  surface  and  subcritical  flow  on  the  lower  surface  and 
takes  about  5 to  10  min  of  computer  time  per  case.  The  theoretical 
basis  for  this  program  has  previously  been  reported.  This  report 
documents  the  computer  program  which  is  written  in  the  language  of 
FORTRAN  Extended  Version  3.0. 

ADMINISTRATIVE  INFORMATION 

This  work  was  sponsored  by  the  Naval  Air  Systems  Command  (NAVAIR-320) 
and  funded  under  NAVAIR  Task  R230.201,  Work  Unit  1-1670-277. 

INTRODUCTION 

Application  of  the  method  of  integral  relations  to  solve  transonic 

flow  problems  has  already  been  developed  and  the  method  used  in  several 
1 2 

flow  solutions.  ’ The  present  report  documents  the  subroutines  used  in 

1.  Tai,  T.  C.,  "Application  of  the  Method  of  Integral  Relations  to 

Transonic  Airfoil  Problems:  Part  I ~ Inviscid  Supercritical  Flow  over 

Symmetrical  Airfoil  at  Zero  Angle  of  Attack,"  NSRDC  Report  3424  (Sep  1970); 
also  presented  as  Paper  71-98,  AIAA  9th  Aerospace  Sciences  Meeting, 

New  York,  N.Y.  (Jan  1971). 

2.  Tai,  T.  C. , "Application  of  the  Method  of  Integral  Relations  to 

Transonic  Airfoil  Problems:  Part  II  — Inviscid  Supercritical  Flow  About 

Lifting  Airfoils  with  Embedded  Shock  Wave,"  NSRDC  Report  3424  (Jul  1972); 
also  presented  as  Paper  73-658,  AIAA  6th  Fluid  and  Plasma  Dynamics 
Conference,  Palm  Springs,  California  (Jul  1973). 
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computing  transonic  flows  and  illustrates  their  use  with  two  examples: 
transonic  flow  past  an  NACA  0015  airfoil  at  a = 4.0  deg  and  transonic 
flow  past  an  advanced  airfoil  at  a = 1.5  deg. 

The  solution  procedure  consists  of  ten  well-defined  steps  in  accordance 
with  necessary  iteration  processes.  The  completion  of  each  step  must 
satisfy  certain  flow  conditions  before  the  next  step  is  undertaken. 

Actually,  there  are  only  three  major  iteration  processes  which  form  the 
bulk  of  the  flow  integration,  and  each  process  can  be  computed  rapidly 
and  efficiently.  The  main  drawback  to  this  method  is  that  each  step 
must  be  computed  separately  and  that  the  output  of  one  step  is  needed 
before  the  next  step  can  proceed.  This  can  be  a time-consuming  process 
if  done  by  conventional  means. 

The  use  of  interactive  graphics  greatly  reduces  man-machine  interaction 
time.  The  input  parameters  and  program  execution  can  be  modified  by  using 
a system  of  light  registers  and  light  buttons  displayed  on  the  CDC  274 
graphics  console  screen.  In  order  to  simplify  the  solution  process,  only 
subcritical  flow  on  the  lower  surface  and  supercritical  flow  on  the  upper 
surface  will  be  allowed. 

The  primary  inputs  to  the  program  are  the  airfoil  coordinates  (a 
maximum  of  40  data  points)  and  32  extraneous  and  physical  flow  parameters. 
During  execution  of  the  interactive  graphics  program,  18  of  these  flow 
parameters  may  be  changed,  but  ordinarily  only  one  or  two  are  used  to 
iterate  on  a particular  flow  solution  to  satisfy  a particular  flow 
condition.  The  remainder  of  the  flow  solution  parameters  may  be  properly 
determined  subject  to  the  necessary  constraints. 

The  importance  of  a well-defined  airfoil  shape  cannot  be  stressed 
too  strongly.  This  highly  sensitive  technique  requires  great  accuracy  in 
first  and  second  derivative  information  from  the  airfoil  surface.  The 
spline  function  is  one  highly  recommended  method  for  representing  airfoil 
surfaces.  It  can  attain  very  accurate  first  and  second  derivatives  from 
the  airfoil  surface  if  certain  constraints  are  chosen  judiciously.  The 
method  is  explained  in  detail  in  Appendix  A. 
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However,  one  fact  should  be  borne  in  mind  before  attempting  to  use 
this  program  to  solve  transonic  flows;  it  is  not  a "black  box"  computer 
program  which  generates  output  for  a given  set  of  input  data.  It  requires 
special  attention  during  execution  to  ensure  that  certain  flow  requirements 
are  met.  If  the  calculated  flow  is  unsatisfactory,  one  of  the  input 
parameters  should  be  changed  to  yield  a satisfactory  result.  Luckily,  it 
can  be  seen  from  inspection  whether  the  value  of  a parameter  is  too  large 
or  too  small,  and  input  changes  can  be  made  accordingly. 

DESCRIPTION  OF  COMPUTER  PROGRAM 

Application  of  the  method  of  integral  relations  for  transonic  flow 
problems  involves  three  major  flow  solutions; 

1.  Upstream  solution 

2.  Airfoil  solution 

3.  Downstream  solution 

These  solutions  must  be  computed  sequentially,  that  is,  the  upstream 
solution  must  be  computed  before  proceeding  to  the  airfoil  solution,  and 
the  airfoil  solution  must  be  computed  before  proceeding  to  the  downstream 
solution.  These  steps  are  shown  in  Figure  1.  The  order  of  operations 
within  the  airfoil  solution  is  immaterial;  either  the  upper  surface  flow 
or  the  lower  surface  flow  can  be  computed  first. 

The  input  to  the  program  is  only  an  approximation  to  the  correct 
input  which  would  yield  a satisfactory  solution.  During  the  course  of 
the  solution,  the  input  is  modified  to  satisfy  certain  flow  conditions. 

For  instance,  in  the  case  of  supercritical  flow  in  the  airfoil  solution, 
the  initial  condition  parameter  CYD  is  changed  until  calculations  show 
that  the  velocity  gradient  is  continuous  through  the  sonic  point.  Other 
inputs  are  modified  in  reply  to  the  questions  shown  in  Figure  1.  When 
all  the  flow  conditions  are  met  satisfactorily  and  the  solution  is  complete, 
the  calculated  pressure  distribution  is  the  serendipitous  result  of  the 
solution  process. 
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ORDER  OF  OPERATIONS 


The  flow  chart  of  Figure  2 gives  a more  detailed  analysis  of  the 
order  of  operations  of  the  more  important  subroutines.  A list  of  these 
subroutines  and  their  function  is  given  below. 

UPSTRM  = performs  upstream  flow  integration 

SIAGNA  = calculates  stagnation  streamline  geometry  and  cross 
velocity  gradient  for  given  stagnation  point  XS 

UPRCRIT  = calculates  Itich  number  conditions  along  initial  portion 
of  upper  surface 

LWRCRIT  = calculates  Mach  number  conditions  along  initial  portion 
of  lower  surface 

UPRINIT  = calculates  initial  conditions  on  upper  surface  for  a 
selected  initial  point  and  CYD 

LWRINIT  = calculates  initial  conditions  on  lower  surface  for  a 
given  initial  point  and  CYD 

SUBCRTl  = performs  subcritical  flow  integration  on  initial  portion 
of  either  upper  or  lower  surface 

SUBCRT2  = performs  subcritical  flow  integration  on  either  upper  or 
lower  surface 

SPRCRTl  = performs  supercritical  flow  integration  on  initial  portion 
of  upper  surface 

SPRCRT2  = performs  supercritical  flow  integration  on  upper  surface 

DWNSTRM  = performs  downstream  flow  integration 

AKUTTA  = provides  outputs  of  calculated  upper  and  lower  surface 
pressure  distributions 

Subroutines  UPSTRM  and  STAGNA  correspond  to  the  upstream  solution, 
and  subroutines  DWNSTRM  and  AKUTTA  correspond  to  the  downstream  solution 
of  Figure  1.  The  rest  of  the  subroutines  correspond  to  the  airfoil 
solution.  The  details  of  the  subroutines  are  given  in  Appendix  B,  and 
a flow  chart  of  each  subroutine  is  given  in  Appendix  C. 

Eight  of  the  more  important  decision  points  are  numbered  in  Figure  2. 
The  dotted  lines  indicate  the  parameter  changes  needed  for  satisfactory 
results.  Each  decision  point  requires  some  attention,  either  a 
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modification  of  the  input  parameters  or  a decision  on  which  course  to 
follow  in  the  computation. 

An  overview  of  the  solution  process  which  consists  of  various  steps 
is  given  in  Figure  3.  Since  the  flow  solution  on  the  upper  surface  is 
much  more  interesting  than  that  on  the  lower  surface,  only  upper  surface 
flow  is  discussed  here  in  detail. 

The  numbered  stars  around  the  airfoil  correspond  to  certain  subroutines 
in  Figure  2: 

1 UPSTRM 

2 STAGNA 

3 UPRINIT-SPRCRTl 

4 SPRCRT2 

5 DWNSTRM 

6 AKUTTA 

The  output  for  a particular  subroutine  is  on  either  side  of  the 
corresponding  number  in  the  figure.  The  trial  solution  to  the  left 
could  be  improved  on;  the  arrow  indicating  the  parameter  changes  needed 
to  improve  the  solution,  and  the  corrected  or  acceptable  solution  to  the 
right  represents  a completed  step.  Once  this  is  completed,  the  program 
begins  executing  the  next  step. 

The  output  from  the  first  step  shows  a plot  of  Y versus  Mach  number. 
This  velocity  profile  is  taken  from  the  final  integration  station  of 
subroutine  UPSTRM.  The  number  of  strips  used  to  integrate  the  flow 
solution  in  the  trial  solution  proved  inadequate,  and  more  strips  were 
added  to  yield  the  corrected  solution. 

The  second  step  is  concerned  with  the  selection  of  a stagnation 
point.  The  stagnation  point  for  the  trial  solution  was  chosen  at  the 
nose  of  the  airfoil;  this  yielded  unrealistic  stagnation  streamline 
geometry  for  a lifting  airfoil.  A more  satisfactory  location  of  the 
stagnation  point  is  given  in  the  corrected  solution.  The  selection  of 
the  stagnation  point  is  most  critical  to  later  calculations. 

The  first  major  iteration  process  is  given  in  the  third  step.  In 
the  trial  solution  the  initial  condition  parameter  CYD,  which  depends  on 
assumed  velocity  profile  shape  ahead  of  the  airfoil,  did  not  yield  velocity 
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gradients  which  were  continuous  through  the  sonic  point.  In  the  case  of 
CYD  = 1.0,  the  flow  accelerated  too  rapidly  before  the  sonic  point,  and 
in  the  case  of  CYD  = 1.010,  the  flow  decelerated  before  the  sonic  point. 
CYD  = 1.005  for  the  corrected  solution,  and  the  velocity  gradients  were 
continuous  through  the  sonic  point.  This  step  calculates  the  flow  on  the 
initial  portion  on  the  upper  surface.  The  fourth  step  calculates  the 
remainder  of  the  flow. 

In  the  fourth  step,  the  only  requirement  for  a satisfactory  solution 
is  the  selection  of  a shock  location  which  allows  the  flow  calculations 
to  proceed  to  the  trailing  edge.  The  shock  location  must  be  chosen  so 
that  the  flow  behind  it  remains  subcritical  throughout  to  the  trailing 
edge.  The  exact  shock  location  is  determined  by  satisfying  the  downstream 
flow  condition  as  outlined  in  the  fifth  step.  The  two  initial  guesses 
in  the  trial  solution  show  cases  of  flow  which  become  supercritical  again 
after  the  shock  wave.  The  corrected  solution  indicates  where  a case  flow 
remains  subcritical  behind  the  shock  location. 

The  third  and  fourth  steps  constitute  the  airfoil  solution  on  the 
upper  surface.  For  the  lower  surface  of  the  airfoil,  a solution  is 
sought  which  allows  flow  integration  to  proceed  to  the  trailing  edge. 

Once  the  airfoil  solutions  for  the  upper  and  lower  surfaces  have  been 
obtained,  the  downstream  solution  may  be  calculated. 

The  fifth  step  is  concerned  with  flow  calculations  downstream  from 
the  airfoil.  In  the  trial  solutions  the  pressures  diverged  from  the 
free-stream  pressures  quite  rapidly.  Thus  it  was  necessary  to  return  to 
the  fourth  step  and  select  a new  shock  location  which  would  yield  down- 
stream pressures  bracketing  the  free-stream  values.  It  can  be  seen  in  the 
corrected  solution  that  the  final  shock  location  was  between  0.50  and  0.51; 
the  pressure  was  slightly  greater  that  free-stream  pressure  for  one  value 
and  slightly  less  for  the  other. 


6 


The  final  step  of  the  solution  process  is  to  check  the  calculated 
pressure  distributions  on  the  upper  and  lower  surfaces  of  the  airfoil. 

If  the  pressures  at  the  trailing  edge  do  not  match  on  the  upper  and  lower 
surfaces,  the  Kutta  condition  is  not  met,  and  program  control  should  be 
transferred  to  the  second  step  for  the  selection  of  a new  stagnation 
point.  If  the  stagnation  point  is  judiciously  chosen,  the  pressure 
distribution  in  the  corrected  solution  should  appear. 

ILLUSTRATIVE  EXAMPLES 

A description  of  the  order  of  operations  of  this  computer  program 
is  best  presented  by  illustrating  its  application  to  a particular  airfoil. 

NACA  0015  Airfoil 

The  NACA  0015  airfoil  at  an  angle  of  attack  of  4 deg  and  a free-stream 
Mach  number  of  0.729  are  used  here  for  purposes  of  illustration. 
Experimental  results  have  shown  that  at  these  flow  conditions,  the  flow 
is  supercritical  on  the  upper  surface  and  subcritical  on  the  lower 
surface.^ 

The  five  input  flow  parameters  of  greatest  importance  to  the  solution 
process  are: 

DVOOI  (dV  /ds)  , the  estimated  cross  velocity  gradient  at 
the  stagnation  point, 

XS,  the  X-coordinate  of  the  stagnation  point, 

CYDL,  the  initial  condition  parameter  for  the  lower  surface 
flow, 

CYDU,  the  initial  condition  parameter  for  the  upper  surface 
flow,  and 

SL,  the  location  of  the  shock  foot  for  the  upper  surface  flow. 

Decision  point  1 comes  after  subroutine  STAGNA,  the  calculation  of 
stagnation  streamline  geometry  and  the  cross  velocity  gradient  at  the 
selected  stagnation  point.  It  is  important  to  select  a stagnation  point 


3.  Graham,  D.  J.  et  al.,  "A  Systematic  Investigation  of  Pressure 
Distribution  at  High  Speeds  over  Five  Representative  NACA  Low-Drag  and 
Conventional  Airfoil  Sections,"  NACA  Report  832  (1945) . 
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for  which  the  streamline  geometry  appears  most  reasonable  because  this 
solution  is  most  critical  to  later  calculations.  The  middle  streamline 
shown  in  Figure  4 was  chosen,  and  the  calculated  cross  velocity  gradient 
for  this  stagnation  point  was  4.343.  Since  this  agreed  well  with  the 
estimated  cross  velocity  gradient  of  4.252,  this  is  considered  a valid 
or  permissible  solution  for  the  upstream  flow.  If  this  cross  velocity 
gradient  were  not  correct,  another  iteration  would  be  needed  for  the 
upstream  solution  with  a new  estimate  of  the  cross  velocity  gradient. 

The  cross  velocity  gradient  DVOOI  determines  the  perturbation  of  the 
stagnation  streamline  due  to  the  presence  of  the  airfoil.  A greater 
perturbation  is  realized  with  increasing  values  of  DVOOI. 

After  decision  point  1,  there  are  two  possible  paths  for  further 
flow  calculations.  The  path  to  the  left  corresponds  to  flow  integration 
on  the  lower  surface.  For  this  path,  J=2  and  subroutine  LWRCRIT  is  computed. 
The  path  to  the  right  corresponds  to  flow  on  the  upper  surface.  For  this 
path,  J=1  and  subroutine  UPRCRIT  is  calculated.  Decision  points  2 and  3 
determine  whether  subcritical  or  supercritical  flow  options  are  to  be 
taken  on  the  upper  or  lower  surface.  A simple  test  was  made  for  selecting 
the  supercritical  or  subcritical  options.  This  information  is  stored 
in  ICRIT(J) . Thus  ICRIT(l)  = 1 for  supercritical  flow  on  the  upper  surface 
and  ICRIT(2)  = 2 for  subcritical  flow  on  the  lower  surface.  Once  a 
decision  on  flow  criticality  has  been  made,  flow  integration  may  proceed 
to  the  flow  solutions  on  either  the  upper  or  lower  surface. 

From  decision  point  2,  the  next  step  in  flow  calculation  is 
subroutine  LWRINIT,  the  initial  solution  on  the  lower  surface.  Depending 
on  decision  point  1,  there  are  two  possible  paths  for  further  flow 
integration.  The  path  for  ICRIT(2)  = 1 is  invalid  since  in  its  present 
form,  the  program  is  not  prepared  to  handle  supercritical  flow  on  the 
lower  surface.  For  ICRIT(2)  = 2,  flow  integration  is  further  computed 
by  subroutines  SUBCRTl  and  SUBCRT2  which  calculate  subcritical  flow. 

The  output  of  these  three  subroutines  is  shown  in  Figure  5.  For  a 
permissible  solution,  the  calculated  Mach  number  along  the  airfoil  surface 
should  return  to  a value  fairly  close  to  the  free-stream  Mach  number  of 
0.729.  Decision  point  4 consists  of  determining  an  appropriate  value  for 
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CYD.  Inspection  of  Figure  5 shows  that  the  value  of  CYD  = 0.8194  is 
appropriate.  Here  the  Mach  number  increased  to  a maximum  at  midchord 
and  decreased  to  a value  of  0.71  at  the  trailing  edge. 

An  appreciation  of  the  physical  significance  of  the  parameter  CYD 
requires  knowledge  of  the  stagnation  streamline  geometry  given  in  Figure 
6.  The  control  volume  is  the  one  outlined  by  points  b,  d,  and  f.  Points 
f and  d represent  values  which  were  computed  in  the  upstream  integration. 
The  mass  flow  into  the  control  volume  is  normal  to  the  line  d-f.  Since 
there  is  no  mass  flow  through  the  stagnation  streamline  or  normal  to  the 
airfoil,  the  mass  flow  out  of  the  control  volume  is  normal  to  line  b^d. 
Hence  the  mass  flow  out  of  the  control  volume  is  fixed  and  is  equal  to 
the  area  under  the  curve  in  Figure  7.  The  ordinate  pV  is  the  mass  flux 
across  the  line  b-d,  and  the  abscissa  n is  along  the  line  b-d  normal  to 
the  airfoil.  Depending  on  the  value  of  CYD,  the  product  can  take 

on  several  values.  Hence  the  velocity  at  the  initial  point  on  the  airfoil 
can  be  varied  according  to  CYD.  The  initial  velocity  decreases  as  CYD 
increases . 

Once  an  appropriate  solution  has  been  found  for  the  lower  surface, 
IGO(J)  is  set  equal  to  1 and  control  is  transferred  to  decision  point  5. 
Both  IGO(l)  and  IC0(2)  must  equal  1 in  order  to  proceed  to  DWNSTRM; 
otherwise  control  is  transferred  to  decision  point  1 and  the  other  path 
is  chosen  for  flow  integration. 

In  the  case  discussed  so  far,  the  lower  surface  has  already  been 
computed  and  the  upper  surface  flow  remains  to  be  computed.  Upper  surface 
flow  has  been  assumed  to  be  supercritical  and  control  can  be  transferred 
to  subroutine  UPRINIT.  After  initial  conditions  in  subroutine  UPRINIT 
have  been  calculated,  one  of  two  paths  can  be  chosen  for  upper  srrface 
flow  integration,  depending  on  the  value  of  ICRIT(J).  If  ICRIT(l)  = 2, 
the  flow  is  assumed  to  be  subcritical  and  further  flow  integration  proceeds 
in  the  same  manner  as  discussed  previously.  If  ICRIT(l)  = 1,  the  flow  is 
assumed  to  be  supercritical  and  control  is  transferred  to  SPRCRTl. 
Subroutines  UPRINIT  and  SPRCRTl  compute  the  initial  flow  solution  on  the 
upper  surface.  The  varying  parameter  for  flow  integration  is  CYDU. 

Decision  point  6 is  concerned  with  determining  a value  for  CYDU  so  that 
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the  velocity  gradients  are  continuous  through  the  sonic  point.  The 
graphed  output  of  this  Iteration  is  shown  in  Figure  8.  A value  of 
CYDU  » 1.074974  determines  continuity  of  the  velocity  gradient  through 
the  sonic  point  and  is  a satisfactory  solution  for  decision  point  6. 

Once  the  initial  solution  has  been  completed,  calculation  of  the 
flow  integration  is  undertaken  for  the  upper  surface  including  the  effects 
of  the  shock  foot.  The  appropriate  value  of  CYDU  has  already  been 
determined  in  subroutine  UPRINIT  and  the  flow  should  return  to  near 
free -stream  values  if  the  stagnation  point  and  the  shock  location  have 
been  chosen  judiciously. 

In  some  cases  it  may  be  desirable  to  modify  the  flow  solution  during 
some  intermediate  step.  The  velocity  distribution  along  y which  is  output 
from  one  step  may  not  be  appropriate,  and  some  adjustment  of  the  y- 
component  velocity  calculated  near  the  airfoil  surface  may  be  made  by 
using  a Lagrangian  or  a parabolic  curve  fit  along  the  y coordinates. 


Once  again,  decision  point  5 is  encountered  and  since  both  upper 

and  lower  surfaces  have  been  computed,  control  can  be  transferred  to 

subroutine  DWNSTRM.  Subroutine  DWNSTRM  is  concerned  with  the  calculation 

of  downstream  flow  conditions.  If  the  value  of  SL  (the  shock  location  on 

the  upper  surface  of  the  airfoil)  is  correct,  flow  will  return  to  near 

free  stream  values.  If  this  value  is  incorrect,  subroutines  SPRCRT2  and 

DWNSTRM  must  be  reiterated  with  varying  values  of  SL.  The  results  of 

such  an  iteration  process  are  shown  in  Figure  9.  The  downstream  flows 

based  on  two  shock  locations  should  bracket  the  free-stream  value  ten 

chord  lengths  downstream  from  the  body  (P/P  = 1 at  x/c  = 10).  As  shown 

00 

in  Figure  9,  the  exact  shock  location  lies  between  x/c  = 0.57  and  0.58. 

When  the  downstream  flow  conditions  most  nearly  approximate  free- 
stream  values  for  the  upper  surface,  parameter  CYDL  can  be  varied  for  the 
lower  surface  to  find  the  value  which  most  nearly  approximates  free-stream 
flow  conditions  downstream  of  the  airfoil.  In  this  case,  subroutines 
LWRINIT,  SUBCRTl,  SUBCRT2,  and  DWNSTRM  are  iterated  to  find  a value  for 
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CYDL  which  most  nearly  approximates  free-stream  conditions  downstream 
of  the  airfoil.  The  results  of  this  iteration  process  are  shown  in 
Figure  10.  The  downstream  flow  conditions  most  nearly  approximate  free- 
stream  values  at  CYDL  = 0.8131,  and  this  value  of  CYDL  is  chosen  to  compute 
the  lower  surface  flow  conditions. 

There  is  one  remaining  step  in  the  solution  process,  namely,  to 
check  the  calculated  pressure  distributions  and  determine  whether  the 
Kutta  condition  is  met  at  the  trailing  edge.  The  upper  and  lower  surface 
pressure  distributions  are  shown  in  Figure  11.  Since  the  pressures 
calculated  at  the  trailing  edge  for  upper  and  lower  surfaces  have  less 
than  3-percent  error,  the  assumed  stagnation  point  is  correct.  If  these 
pressures  had  not  matched  at  decision  point  9,  a change  would  have  been 
required  for  the  stagnation  point  and  the  solution  process  would  proceed 
again  from  decision  point  2. 

The  upper  surface  pressure  distribution  depends  greatly  on  the  value 
of  P,  the  oblique  shock  angle  of  the  shock  foot.  The  shock  location  moves 
forward  with  decreasing  values  for  p.  In  this  particular  example,  a change 
of  entropy  was  allowed  through  the  shock  wave  and  the  angle  of  P was  assumed 
to  be  70  deg. 

Other  Airfoils 

The  procedure  for  calculating  the  transonic  flows  over  other  airfoils 
is  basically  the  same  as  above  except  that  a change  has  to  be  made  in 
subroutine  ARFL.  An  analytic  function  does  not  exist  for  airfoils  other 
than  NACA  4-digit  series,  and  some  method  of  airfoil  representation  must 
be  used.  The  method  used  for  this  program  is  the  spline  fit  (see 
Appendix  A).  The  method  requires  a given  set  of  data  points  and  the  first 
derivatives  at  the  beginning  and  end  points  of  that  set.  The  coordinates 
of  the  airfoil  should  be  very  accurate  for  a smooth  curve  fit.  It  is 
possible  to  find  an  airfoil  shape  with  a smooth  second  derivative  fit  by 
varying  the  beginning  and  end  slopes  of  the  airfoil. 
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Figure  12  shows  the  fitted  curve  for  a particular  airfoil,  and  a 
plot  of  the  second  derivatives  for  this  curve.  The  smooth  fit  for  the 
second  derivatives  ensures  that  the  airfoil  curvature  is  pretty  well 
represented , 


APPLICATION  OF  INTERACTIVE  GRAPHICS 

The  subroutines  previously  described  have  been  incorporated  into 

an  interactive  graphics  program  so  that  program  execution  can  be 

accomplished  most  efficiently.  The  interactive  graphics  program  has 

been  written  with  the  help  of  Graphic  Pac,  an  NSRDC-developed  software 

* 

package  for  use  with  graphics  facilities.  The  Graphic  Pac  features 
include  virtual  memory  data  management  for  both  graphic  and  nongraphic 
data  and  a comprehensive  collection  of  interactive  facilities;  program 
control  is  modified  during  execution  by  the  use  of  subroutine  WAITE. 

When  a call  is  made  to  this  subroutine,  execution  stops  and  the  program 
awaits  input  from  an  attention  source.  Attention  sources  are  the  light 
buttons  and  text  entities  which  appear  on  the  screen,  and  these  may  be 
signalled  by  the  light  pen. 

When  Graphic  Pac  is  used,  all  subroutines  have  to  be  compiled  into 
a relocatable  binary  format  by  PRELOAD,  an  NSRDC-developed  utility. 

Once  the  graphics  program  and  the  subroutines  have  been  compiled  by  PRELOAD, 
they  are  loaded  into  a new  task  format  by  TSKLOAD,  another  NSRDC-developed 
utility  program.  It  is  the  TSKLOAD  format  which  is  executed.  When  this 
program  is  loaded  by  using  IGSGO,  it  makes  nominal  demands  on  the  CDC  6700 
computer.  The  control  cards  needed  to  create  the  taskload  file  are  shown 
in  Figure  13,  and  those  required  to  make  a graphics  run  are  shown  in 
Figure  14. 


*Reported  informally  in  NSRDC  Technical  Note  CMD  42-28  (Graphic  Pac  — A 
Subroutine  Package  for  Interactive  Graphic  Application  Programming) , 
August  1973. 

**Reported  informally  in  NSRDC  Technical  Note  CMD  51-72  (PRELOAD  — A 
Binary  Deck  Library  Loader  for  the  CDC  6700  Computer),  October  1972. 
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The  CDC  6700  central  processor  should  be  specified  to  compile  and 
load  the  program  most  efficiently.  During  loading,  the  program  uses 
approximately  400  CPU  sec,  has  a field  length  of  110000  Octals,  and 
resides  In  central  memory  for  about  1 hr.  During  execution,  the  program 
has  a field  length  of  20000  Octals. 

The  structure  of  an  Interactive  graphics  program  Is  somewhat  different 
from  a program  used  In  batch  processing.  In  order  to  have  maximum  control 
over  the  program  and  to  allow  Input  changes  when  necessary,  there  are 
many  points  In  the  program  where  program  execution  pauses  and  waits  for 
a signal  from  one  of  the  attention  sources.  An  attention  source  can  be 
a light  register  used  to  type  In  new  Input  Information  or  an  asterisk 
used  to  signal  execution  of  a new  batch  of  coding.  The  flow  chart  In 
Figure  15  Indicates  the  possible  paths  for  program  execution.  The  nodes 
Indicate  possible  Input  changes. 

Each  of  the  tasks  In  the  program  perform  a well-defined  function. 

Half  of  them  display  Information  calculated  by  a MIR  subroutine  and  the 
other  half  maintain  the  screen  displays.  A brief  description  of  each 
task  Is  given  In  Appendix  D.  The  subroutines  used  by  these  tasks  and 
their  functions  are  given  in  Appendix  B. 

According  to  Figure  15,  there  are  many  possible  paths  for  the  program 
to  follow.  However,  it  is  not  necessary  to  use  all  these  paths  in  the 
solution  process.  In  some  cases,  a decision  box  could  have  been  used 
instead  of  a node.  In  order  to  avoid  a complex  logic  diagram,  however, 
the  format  of  Figure  15  was  chosen.  This  figure  at  least  gives  an 
indication  of  the  versatility  of  the  interactive  graphics  program  which 
allows  many  possible  paths  instead  of  two  or  three  from  a particular 
program  control  point. 

BASIC  F0RMA.T 

Figure  16  gives  the  basic  format  for  the  graphic  output  of  a step. 

Most  of  the  screen  display  is  given  to  the  plot  of  currently  computed 
output.  Sometimes  two  plots  may  appear  in  this  area  of  the  screen. 

If  for  any  reason  at  all,  it  Is  impossible  to  perform  the  integration 
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at  this  step,  a large  X will  cover  the  graph  display;  if  only  a partial 
integration  is  possible,  the  message  INTEGRATION  INCOMPLETE  will  flash  on 
the  screen.  There  are  two  columns  of  light  registers  in  the  lower  right- 
hand  corner  of  the  screen;  the  first  gives  information  on  flow  conditions 
at  the  currently  computed  step  and  the  second  contains  the  input  variables 
The  variables  are  light  pen  detectable,  and  the  values  in  them  can  be 
changed.  A current  value  can  be  erased  and  replaced  with  a blank  by 
touching  a light  register  with  a light  pen  and  depressing  the  handle  of 
the  pen.  A new  value  can  then  be  Inserted  by  typing  it  in  on  the  key- 
board and  pressing  the  keyboard  release  button.  When  the  COMPUTE  button 
at  the  bottom  of  the  column  is  touched,  the  program  will  attempt  to 
execute  the  step  with  the  current  input.  The  asterisks  surrounding  the 
airfoil  in  the  lower  left-hand  corner  signify  the  steps  of  the  flow 
solution;  they  are  coded  in  Figure  16.  The  currently  computed  step  is 
identified  by  a flashing  asterisk.  The  asterisks  will  appear  only  when 
the  program  is  ready  to  execute  the  program  step  which  they  represent. 
Program  control  can  be  transferred  to  any  other  step  by  signalling  the 
appropriate  asterisk  with  the  light  pen.  The  program  can  be  terminated 
at  any  time  by  using  the  light  pen  to  signal  the  STOP  button  in  the  far 
left-hand  corner. 

The  input  to  the  graphics  program  consists  of  32  flow  solution 
parameters  and  a maximum  of  40  airfoil  data  points  and  the  first 
derivatives  at  these  data  points.  These  airfoil  data  points  and  their 
first  derivatives  have  been  chosen  to  ensure  a smooth  second  derivative 
curve  fit  in  accordance  with  Appendix  A.  A description  of  the  input 
data  is  given  in  Appendix  E.  Many  of  the  flow  solution  parameters  assume 
the  values  suggested  in  the  appendix. 

ILLUSTRATIVE  EXAMPLE 

Just  as  an  illustrative  example  of  flow  past  an  NACA  0015  airfoil 
was  used  to  describe  the  MIR  program  subroutines,  an  illustrative  example 
of  flow  past  an  advanced  transonic  airfoil  will  describe  the  use  of  IGS. 
The  first  display  to  appear  on  the  screen  is  that  shown  in  Figure  17. 


14 


The  four  light  registers  contain  the  free-stream  flow  conditions  and 
certain  initial  conditions; 

ALPHA  = Angle  of  attack 

MACH  NO.  = Mach  number 

YI(UPR)  = Location  of  outermost  strip  in  upper  surface 
(given  in  chord  length) 

YI(LWR)  = Location  of  outermost  strip  in  lower  surface 
(given  in  chord  length) 

If  these  flow  conditions  are  satisfactory,  control  may  be  transferred 
to  the  first  step  in  the  flow  solution  by  signalling  the  light  button 
PROCEED. 

The  first  step  in  the  solution  is  the  calculation  of  the  upstream 
flow  conditions.  The  necessary  parameters  for  the  upstream  solution  are 
the  number  of  strips  used  in  integration  and  XOO,  the  distance  from 
free-stream  flow  conditions  to  the  stagnation  point  on  the  airfoil. 

The  parameter  NN  indicates  the  number  of  strips  used  for  the  bulk  of 
integration,  and  NA  indicates  the  number  of  additional  strips  used  in 
the  vicinity  of  the  airfoil.  For  greater  accuracy,  it  is  recommended 
that  eight  strips  be  used  in  the  vicinity  of  the  airfoil.  Figure  18 
indicates  the  screen  display  corresponding  to  this  solution. 

The  flashing  light  ahead  of  the  airfoil  in  the  lower  left-hand 
corner  of  the  screen  display  indicates  that  the  upstream  solution  is 
ready  for  execution.  When  the  COMPUTE  light  button  at  the  bottom  of 
the  second  column  of  light  registers  is  signalled,  this  step  will  be 
executed  by  using  the  input  values  currently  in  the  light  registers. 

The  computed  values  of  YSO  and  DE  will  be  displayed  in  the  first  column. 
These  values  should  be  less  than  0.1.  The  graphic  output  shows  Y versus 
M,  the  velocity  profile  at  the  final  station  of  upstream  integration, 
and  versus  X,  the  variation  of  Mach  number  along  the  stagnation 
streamline.  These  two  graphs  are  characteristic  of  an  appropriate 
solution. 

If  the  computation  of  the  upstream  solution  is  complete,  the  program 
may  proceed  to  the  stagnation  solution.  The  necessary  parameters  used  to 
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iterate  on  this  stagnation  solution  are  XS,  the  X-coordinate  of  the 
stagnation  point,  YSO,  the  distance  that  the  stagnation  streamline  is 
perturbed  by  the  airfoil,  and  DVOO(I) , the  cross  velocity  gradient  used 
in  the  upstream  solution.  The  screen  display  is  shown  in  Figure  19. 

If  DVOO(F) , the  cross  velocity  gradient  calculated  at  the  particular 
stagnation  point,  does  not  agree  with  DVOO(I) , then  DVOO(I)  must  be 
changed  to  the  newly  calculated  value,  and  the  upstream  solution  must 
be  recalculated.  By  signalling  the  light  far  to  the  left  of  the  airfoil, 
control  is  transferred  back  to  the  upstream  solution  which  is  computed  by 
using  the  new  DVOO(I).  When  the  streamline  geometry  seems  reasonable  and  . 
the  cross  velocity  gradients  agree  at  the  stagnation  point,  the  program 
may  proceed  to  the  step  which  determines  flow  criticality  on  either  the 
upper  or  lower  surface.  For  example,  consider  the  flow  on  the  upper 
surface.  Control  is  transferred  to  this  step  by  signalling  the  light 
just  above  the  leading  edge  of  the  airfoil. 

The  screen  display  shown  in  Figure  20  determines  the  type  of  flow 
present  on  the  upper  surface.  In  this  case  the  Mach  number  reaches  a 
value  of  0.96  in  a relatively  short  distance,  and  so  it  is  safe  to  assume 
that  supercritical  flow  is  present  on  the  upper  surface.  By  signalling 
the  SUPERSONIC  light  button,  program  control  is  transferred  to  the  next 
step  which  computes  the  initial  conditions  on  the  upper  surface. 

The  screen  display  of  Figure  20  also  indicates  the  light  button 
LAGRANGIAN.  When  it  is  signalled,  the  normal  velocity  component  at  the 
innermost  strip  at  the  initial  step  will  be  corrected  using  a Lagrangian 
curve  fit.  The  light  button  lAGRANGIAN  will  disappear  and  the  light  button 
PARABOLIC  will  appear  in  the  same  area  on  the  screen.  Similarly,  when  the 
latter  is  signalled,  the  normal  velocity  component  at  the  innermost  strip 
at  the  initial  step  will  be  corrected  using  a parabolic  curve  fit.  If 
neither  light  button  is  signalled,  the  normal  velocity  component  at  the 
innermost  strip  will  not  be  modified  during  the  flow  integration. 

The  necessary  parameters  for  calculation  of  the  initial  solution 
are  XA,  the  initial  point  of  flow  integration,  and  CYD,  which  determines 
the  initial  velocity  profile  shape.  The  screen  display  of  Figure  21 
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illustrates  the  iterative  process  used  to  satisfy  the  flow  conditions 
in  this  step.  After  an  Initial  point  has  been  chosen,  the  parameter 
CYDU  is  varied  until  the  velocity  gradient  DUDX  is  continuous  through 
the  sonic  point. 

The  following  additional  information  is  included  to  help  proceed  to 
a converged  solution.  The  value  of  RBUB  in  Figure  7)  should  be 

less  than  1.1  and  CYDU  should  be  increased  until  this  requirement  is  met. 

If  CYDU  is  too  large,  the  velocity  gradients  will  become  negative  and  the 
flow  will  become  subsonic,  prohibiting  further  integration.  If  the 
solution  still  does  not  converge,  the  number  of  strips  NN  should  be 
decreased  by  one.  When  an  appropriate  CYD  value  is  chosen  and  integration 
is  completed,  a light  above  the  airfoil  will  signal  that  the  upper  surface 
airfoil  solution  is  now  ready  to  be  computed.  Further  refinements  to  the 
initial  solution  can  now  be  made  or  control  can  be  transferred  to  the  next 
step  by  signalling  the  light  above  the  airfoil. 

The  screen  display  of  Figure  22  indicates  the  airfoil  solution  on  the 
upper  surface.  The  location  of  the  shock  foot  should  be  chosen  so  that 
flow  integration  may  proceed  from  the  initial  solution  to  the  trailing  edge 
of  the  airfoil.  If  the  shock  location  is  chosen  too  close  to  the  nose  of 
the  airfoil,  the  flow  will  accelerate  to  supersonic  again  after  the  shock 
wave,  prohibiting  further  integration;  if  the  shock  location  is  chosen  too 
close  to  the  trailing  edge  of  the  airfoil,  the  flow  becomes  over  expanded 
before  the  shock  foot,  prohibiting  further  integration.  A careful  choice 
of  shock  foot  will  allow  integration  to  proceed  to  the  trailing  edge. 

If  the  solution  on  the  upper  surface  is  completed,  control  may  be 
transferred  to  the  step  which  determines  flow  criticality  on  the  lower 
surface  by  signalling  the  light  under  the  leading  edge  of  the  airfoil. 

The  screen  display  for  this  step  is  shown  in  Figure  23.  Since  the  local 
Ifech  number  is  below  0.6  for  at  least  5 percent  of  the  airfoil  surface, 
it  is  safe  to  assume  that  subcritical  flow  exists  on  the  lower  surface 
of  the  airfoil.  The  program  now  proceeds  to  the  step  which  computes  the 
airfoil  solution  on  the  lower  surface. 
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The  screen  display  of  Figure  23  also  shows  the  light  button  lAGRANGIAN. 
Correction  to  the  innermost  strip  y-component  velocity  can  be  made  by 
signalling  this  light  button  in  the  same  manner  as  indicated  for  Figure  20. 

The  screen  display  for  the  airfoil  solution  is  shown  in  Figure  24. 

The  parameters  for  this  solution  are  the  same  as  for  the  initial  solution 
on  the  upper  surface.  If  the  chosen  value  of  CYDL  is  too  small,  the 
message  FLOWS  NOT  MATCHED  will  appear  where  UB  = 0.699485  now  appears 
on  the  screen.  When  the  value  of  CYDL  is  increased,  the  value  of  RBUB 
will  decrease  and  flow  integration  may  proceed.  A particular  choice  for 
CYDL  will  allow  integration  to  proceed  to  the  trailing  edge.  Further 
improvements  can  be  made  to  the  airfoil  solution  or  control  may  be 
transferred  to  the  downstream  solution.  The  upper  surface  and  lower 
surface  can  be  computed  in  any  order,  but  the  downstream  solution  cannot 
be  computed  until  both  upper  and  lower  surfaces  are  computed. 

The  screen  display  of  Figure  25  will  appear  when  the  light  to  the 
right  of  the  airfoil  is  signalled.  A satisfactory  solution  for  this 
step  would  be  one  in  which  the  graph  of  PO  versus  X has  values  fairly 
close  to  one,  meaning  that  the  computed  pressures  are  fairly  close  to 
free-stream  pressures  downstream.  Since  control  was  transferred  to  this 
step  from  the  lower  surface,  the  downstream  solution  considers  the  flow 
regime  from  the  slip  streamline  to  the  outermost  strip  on  the  lower 
surface.  In  order  to  find  a solution  which  will  yield  free-stream  flow 
conditions  in  this  regime,  an  iteration  must  be  made  on  the  lower  surface 
airfoil  solution  and  the  downstream  solution  by  varying  the  value  of  CYDL. 
Once  a satisfactory  solution  has  been  found,  control  may  be  transferred 
to  the  airfoil  solution  on  the  upper  surface  by  signalling  the  light  just 
above  the  airfoil. 

The  screen  display  for  the  airfoil  solution  on  the  upper  surface 
is  the  same  as  previously  shown  in  Figure  22.  Since  both  upper  and  lower 
surfaces  have  been  computed,  control  may  be  transferred  to  the  downstream 
solution  by  signalling  the  light  to  the  right  of  the  airfoil. 

Since  control  was  transferred  to  this  step  from  the  upper  surface, 
the  downstream  solution  considers  the  flow  regime  from  the  slip  streamline 
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to  the  outermost  strip  on  the  upper  surface.  In  order  to  find  a solution 
which  yields  free-stream  flow  conditions  downstream,  an  Iteration  must 
be  made  on  the  upper  surface  airfoil  solution  and  the  downstream  solution 
by  varying  the  value  of  SL.  When  an  appropriate  solution  has  been  found, 
control  may  be  transferred  to  the  final  program  by  signalling  the  light 
which  appears  on  the  airfoil. 

Figure  26  illustrates  the  screen  display  of  the  final  program  step. 

The  validity  of  the  solution  can  be  checked  by  inspecting  the  pressure 
distributions  computed  in  the  airfoil  solution  for  both  upper  and  lower 
surfaces.  (Pressures  on  the  upper  and  lower  surfaces  should  match  at 
the  trailing  edge  in  order  to  satisfy  the  Kutta  condition.)  Inspection 
of  Figure  26  shows  that  this  condition  has  not  been  met  (there  is  a 10- 
percent  discrepancy  between  trailing  edge  pressures)  and  that  further 
action  should  be  taken  to  correct  this  situation.  Program  control  can 
be  transferred  to  the  stagnation  solution  for  the  selection  of  a new 
stagnation  point.  Then  the  whole  solution  procedures  described  above 
should  be  repeated. 

Solutions  exist  for  each  of  the  four  major  iteration  processes  which 
have  been  presented.  Failure  to  find  a bracketed  solution  for  a particular 
iteration  process  indicates  the  need  for  further  refinement  in  the  strip 
arrangement  of  the  flow  field.  Computational  experience  further  indicates 
that  special  attention  should  be  given  to  spline  fitting  the  leading 
edge  of  the  airfoil  to  ensure  that  the  curvature  of  the  airfoil  is 
smoothly  continuous  in  the  region  of  the  sonic  point  to  avoid  difficulties 
in  attaining  converged  solution. 

CONCLUDING  REMARKS 

The  use  of  interactive  graphics  enables  a practical  application  of 
the  method  of  integral  relations  to  solve  transonic  flow  problems  past 
lifting  airfoils.  For  instance,  5 to  10  min  of  actual  computer  time  and 
about  1 hr  of  interactive  graphics  time  are  required  to  determine  the 
converged  solution,  i.e.,  pressure  distribution  about  the  given  airfoil 
for  a given  flow  condition.  With  experience,  these  times  could  be  reduced 
still  more. 
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Experience  at  NSRDC  during  the  development  of  the  application 
indicates  that  care  must  be  exercised  in  the  strip  arrangement  of  the 
flow  field  and  in  the  spline  fitting  of  the  airfoil  coordinates, 
particularly  near  the  leading  edge  or  sonic  point  area  in  order  to 
ensure  numerical  stability  and  accuracy. 

The  use  of  interactive  graphics  for  this  program  is  minimal. 

Further  refinements  might  include  hard  copies  of  the  output  from  the 
Cal  Comp  plotter.  The  only  output  now  saved  is  that  on  the  line  printer. 
Use  of  light  registers  might  also  make  it  possible  to  keep  track  of 
previous  guesses  on  a particular  iteration. 
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INPUT;  ESTIMATED  FLOW  PARAMETERS 
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Figure  1 - The  Solution  Procedures  for  Transonic  Flow  Problems 
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Figure  2 - Flow  Chart  for  the  More  Important  Subroutines 
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Figure  3 - Overview  of  the  Solution  Process 
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Figure  4 - Choice  of  Stagnation  Point 
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Figure  5 - Choice  of  CYDL  for  Lower  Surface  Flow 
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Figure  8 - Choice  of  CYDU  for  Upper  Surface  Flow 
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Downstream  Flow 
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Figure  11 
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GRAPHICS  PROGRAM 


7/8/9 


MIR  SUBROUTINES 


7/8/9 


EDIT(0,A,CXXX,0000000000,2,INPUT,GPACP,PPACP,IPPDUMP,OUTBIN) 


ATTACH(IPPDUMP,CARSIPPDUMP) 


ATTACH  (PPACP.CAMMPPACP) 


ATTACH(GPACP,CARSGPACLIB) 


ATTACH(EDIT,CAMVEDIT) 


PRELOAD(OUTBIN,  INBIN) 


FTN,  B = INBIN. 


CHARGE,CXXX,0000000000 


CXXX,CPB,CM  1 1 0000,P2 


Figure  13  - Deck  Setup  for  Creation  of  TASKLOAD  File 
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Figure  14  - Deck  Setup  for  Graphics  Run 
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Figure  15  - Flow  Chart  for  the  More  Important  Tasks 
of  the  Interactive  Graphics  Program 
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STOP 


1.  UPSTREAM  SOLUTION 

2.  STAGNATION  SOLUTION 

3.  UPPER  SURFACE  INITIAL  SOLUTION 

4.  UPPER  SURFACE  AIRFOIL  SOLUTION 


5.  LOWER  SURFACE  INITIAL  SOLUTION 

6.  LOWER  SURFACE  AIRFOIL  SOLUTION 

7.  DOWNSTREAM  SOLUTION 

8.  KUTTA  CONDITION  CHECK 


Figure  16  - Basic  Format  for  Screen  Displays 
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MACH  NO.=0.7 
ALPHA=1,5 
YI(UPR)=7.0 
PROCEED  YI(LWR)=7.0 


Figure  17  - First  Screen  Display 
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YSO=0.012598  XOO=2.5 

DE=0.056  NA=3 

NN=5 
COMPUTE 


Figure  18  - Screen  Display  for  Upstream  Solution 
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Figure  19  - Screen  Display  for  Stagnation  Solution 
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Figure  20  - Screen  Display  for  Flow  Criticality  on  Upper  Surface 
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Figure  22  - Screen  Display  for  Airfoil  Solution  — Upper  Surface 
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Figure  23  - Screen  Display  for  Flow  Criticality  on  Lower  Surface 
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Figure  24  - Screen  Display  for  Airfoil  Solution  — Lower  Surface 


X 


IMIM=3 

COMPUTE 


play 


for  Downstream  Solution 


5 


APPENDIX  A 

AIRFOIL  REPRESENTATION  BY  SPLINES 


In  the  analysis  of  arbitrary  airfoil  shapes,  very  accurate  first 
and  second  derivative  information  of  the  airfoil  surface  is  needed  to 
complete  flow  analysis.  The  use  of  a nonperiodic  cubic  spline  in  airfoil 
representations  provides  a function  which  has  linear  changes  in  the 
second  derivative  between  points  on  the  airfoil.  In  order  to  fit  a cubic 
spline  to  the  points  on  an  airfoil,  very  accurate  data  input  is  necessary. 
Also  necessary  to  generating  an  accurate  cubic  spline  function  are  the 
initial  and  final  slopes  of  the  airfoil. 


The  determination  of  the  coefficients  m,  for  a cubic  spline  function 

4 ^ 

is  given  by  the  system  of  equations: 
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where  are  the  y-coordinates  of  the  airfoil  data  points  and  m^  are 
the  first  derivatives  at  these  data  points.  The  coefficients 

= h, /(h.+h,  ) and  u.  = 1 - A..  The  variable  h.  indicates  the  mesh 
spacing:  here  h.  = x.-x.  , and  x.  are  the  x-coordinates  of  the  airfoil 
data  points.  The  first  derivatives  at  the  beginning  and  end  points 
(m^  and  m^^)  and  the  airfoil  data  points  are  assumed  to  be  known. 

Once  the  values  of  m.  have  been  determined,  the  cubic  spline 

J 


function  can  be  expressed  on  (x^_j^,x^) 


as 
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S(x)  = m 


(x.-x)'^(x-x._^) 


- m 


j 


h.2 
J 

(x  -x)^[2(x-x  ) + h J 

+ y..i  — ^ ^ 

^ h.3 

J 

(x-x  )2[2(x.-x)  + h ] 

+ y.  Izl J L- 


(Xj-x) 


The  first  derivative  can  be  expressed  as 


s'Cx)  = 


(x,-x)(2x.  ,+x.-3x) 
J J-1  J 


h 


m . 
J 


(x-x.  ,)(2x.+  X.  3x) 
J-1  J J-1 

h.2 

J 


^j-1 

+ 6(x  - x)(x-  X,  ,) 


h.3  J 

J 


j-1^ 


The  second  derivative  can  be  expressed  as 


2x.+  X.  3x  2x.  ,+  X--  3x 

s'  W = -2„.  , 2m.  .J 

J-1  h.2  J h.2 


^j-1 

+ 6 J— (x.+  X.  - 2x) 

h.3  J J-1 

J 


The  above  represents  a revised  version  of  spline  program  as 
2 

discussed  by  Tai.  More  information  on  spline  functions  can  be  found 
4 

in  Ahlberg  et  al. 

4.  Ahlberg,  J.  H.  et  al.,  "The  Theory  of  Splines  and  Their 
Applications,"  Academic  Press,  New  York  (1967). 
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SUBROUTINE  SPLNFMN,  SlOPEI ,SL0PEF, J) 

COHHON/PTMtFL/XXmOfZt  •rr(4a,2)  ,AN(4a«2)  «CA  ,s 

DIHENSION  TRIOI<«,30I 
IFfN.NE.Z)  60  TO  20 

AH(1,JI  =IVY(2,JI-YTI1,  Ji  )/IXXC2,  Jl  -XX(1,  jn 
AN(2tJi  = AfKl.J) 

RETURN 

20  A = XX(2, Ji-XX(i,J) 

B=  XX(I,J)-XX(2,J) 

C = YY(2, J>-YYtl,J> 

0=  YY( J, J»-YY(2f J» 

TRIDdil)  = 0.0 
TRI0(2,1I  =1.0 
TRIC(3«1)  = 0.0 
TRIOCAill  = SLOPEI 
TRI0(1,N)  = 0.0 
TRID(2|N)  =1.0 
TRI0I3,NI  = 0.0 
TR101i»,N»  = SLOPEF 
IFIN  = N-1 

00  ^0  1=2, IFIN 
TRIOU.U  =A 
TRID<2,II  = 2.0  *«A»3) 

TRI0<3,II  = B 

TRIDC^.IM  3.0»(A»D/a+B*:/A) 

IF<I-IFIN)35,50,35 
35  A=B 

9=XX(I*^2,  J)-XX<I  + 1,J) 

c = o 

AO  0=YY(If2, J)-YT(I+1,J) 

50  00  55  1 = 1, IFIN 

TRI0<1,I1  = TRI3(l,I)/TRI9(2,n 
TRI0<<*,H  = TRI0<A,II/TRI0»2,I> 

TRIO(2,I*l»  = TRI0<2,I»1>  -TRIO I 3 , 1 *1 ) • TRI D ( 1 , 1 ) 

5 5 TRIO(<*,I*lJ=TRIO(4,I»l)-TRIO(<»,I)*TRn(3,I«-l> 

TRI0(4,N>  = TRI0<4,N» /TRIO(2,N) 

AM(IFIN,J)  = TRID<4,N-1»-TRI0(1,N-1>»TRI3<4,N) 

00  60  1 = 2, IFIN 
NN  = N-I 

60  AM(NN,J»=  TRI0(4,NN)  - TRIO  ( 1 , NN)  » AH  NN*  1 , J) 

AM(N,J)  = TRIO(4,N) 

RETURN 

END 


APPENDIX  B 

DESCRIPTION  OF  SUBROUTINES 

VARIABLES  IN  ACOM 

The  following  variables  refer  to  the  dividing  streamline,  that  is, 
the  strip  which  proceeds  from  the  upstream  solution  to  the  stagnation  point 
and  follows  the  upper  and  lower  airfoil  surfaces  to  the  trailing  edge  of 
the  body  and  from  the  trailing  edge  of  the  body  to  nine  chord  lengths 
downstream  from  the  airfoil. 

YO  = y-coordinate  normalized  with  respect  to  chord  length 
PO  = pressure  ratio  P/P^ 

RO  = density  ratio  p/p^ 

UO  = velocity  component  in  x,  u/u_^ 

VO  = velocity  component  in  y,  v/v^ 

RMO  = Mach  number 

DUO  = velocity  gradient  (du/dx)^ 

The  following  variables  refer  to  the  intermediate  NN  strips  in  flow 
integration; 

Y(2,10)  = y-coordinate  normalized  with  respect  to  chord  length 

P(2,10)  = pressure  ratio  P/P^^ 

R(2,10)  = density  ratio  p/p^ 

U(2,10)  = velocity  component  in  x,  u/u^ 

V(2,10)  = velocity  component  in  y,  v/v^ 

RM(2,10)  = l&ch  number 

DU(2,10)  = velocity  gradient  (du/dx)^ 

The  first  subscript  references  either  upper  or  lower  surface  and  the 
second  subscript  references  a particular  strip.  For  instance,  Y(l,l) 
references  the  outermost  strip  on  the  upper  surface  and  Y(2,l)  references 
the  outermost  strip  on  the  lower  surface.  If  five  strips  are  being  used 
to  perform  the  flow  integration,  Y(l,5)  would  reference  the  innermost  strip 
on  the  upper  surface.  Suppose  we  chose  in  free-stream  condition  an  outer- 
most strip  seven  chord  lengths  away  from  the  body;  then  Y(l,l)  = 7.0. 
Intermediate  strips  are  spaced  half  as  far  away  from  the  dividing  streamline 
as  the  previous  strip.  Hence, 
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Y(l,2)  = 3.5 
Y(l,3)  = 1.75 
Y(l,4)  = 0.875 
Y(l,5)  = 0.4375 

All  of  the  flow  variables  are  normalized  by  free-stream  values. 

VN  = velocity  component  at  airfoil  surface  normal  to  airfoil 

VS  = velocity  component  at  airfoil  surface,  tangential  to  airfoil 

X = X-coordinate 

XA  = distance  along  airfoil  chord 

XB  = distance  along  airfoil  parallel  to  X axis 

H = integration  step  size 


YB 


XB 


XA 


VARIABLES  IN  COMMON/AINPUT/ 


AIN(l) 

DVOOI 

= estimated  cross  velocity  gradient  at  stagnation  point 

A1N(2) 

XS 

= stagnation  point  on  airfoil 

AIN(3) 

XAO 

= initial  point  upper  surface 

AIN(4) 

CYDU 

= parameter  indicating  shape  of  final  velocity  profile 
of  final  upstream  integration  station  for  upper 
surface 

AIN(5) 

XAI 

= initial  point  lower  surface 

AIN(6) 

CYDL 

= parameter  indicating  shape  of  final  velocity  profile 
of  final  upstream  integration  station  for  lower 
surface 

AIN(7) 

SL 

= shock  location 
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AIN (8) 
A1N(9) 
AIN(IO) 

AIN(ll) 

AIN(12) 

AIN(13) 

AIN(14) 

AIN(15) 
AIN (16) 
AIN(17) 
AIN(18) 
AIN(19) 
AIN(2) 

AIN(21) 

AIN(22) 

AIN(23) 

AIN(24) 

NNI(l) 

NNI(2) 

NNI(3) 

NNI(4) 

NNI(5) 

NNI(6) 

NNI(7) 

H(l) 

H(2) 

H(3) 

H(4) 

H(5) 

H(6) 


XOO  fa  4.0  = parameter  used  in  calculating  DVOO  for  UPSTRM 

RMT  fa  7,0  = Mach  number  used  in  UPSTRM 

CDY  fa  0.1  = upper  limit  for  slope  of  stagnation  streamline 

in  UPSTRM 

YU  fa  0.7  = location  of  outermost  strip  on  upper  surface 

YL  fa  7.0  = location  of  outermost  strip  on  lower  surface 

CX  fa  0.5  = X-coordinate  for  last  integration  step  in 

SUBCRTl 

RMC  fa  0.92  = upper  limit  for  Mach  number  on  innermost 

strip  in  SPRCRTl 

BETAD  = shock  wave  angle 

DELS  = entropy  change  through  shock  foot  in  SPRCRT2 

CDDQ  fa  11.0  = upper  limit  for  d^q/dx^  in  SPRCRT2 

RKI  fa  5.0  = value  of  RK  for  DWNSTRM 

XASPR  = X-coordinate  for  initial  point  in  SPRCRT2 

DE  = distance  from  final  station  of  upstream 

integration  to  airfoil  surface 

YSO  = distance  which  stagnation  streamline  is 

perturbed  by  the  airfoil 

YS  = y-coordinate  of  stagnation  point 

CSI  = value  of  CS  in  DWNSTRM 

CZI  = value  of  CZ  in  DWNSTRM 

= number  of  strips  used  for  the  bulk  of  flow 
integration  in  UPSTRM 

= number  of  additional  strips  used  near 
stagnation  point  in  UPSTRM 

= number  of  strips  used  in  UPRINIT 

= number  of  strips  used  in  LWRINIT 

= number  of  strips  used  in  SPRCRT2 

= number  of  strips  used  in  DWNSTRM 

= dummy  variable  used  in  lOUPRIN  and  lOLWRIN 

= step  size  in  UPSTRM 

= step  size  in  SPRCRTl 

= step  size  in  SUBCRTl 

= step  size  in  SUBCRT2 

= step  size  in  SPRCRT2 

= step  size  in  DWNSTRM 
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VARIABLES  IN  COMJ«)N/YUVSAV/ 

These  variables  contain  the  flow  conditions  output  from  one  step 
and  input  to  another.  The  flow  conditions  are  y,  the  distance  from 
the  airfoil  surface  to  this  particular  strip,  u,  the  horizontal  velocity 
component,  and  v,  the  vertical  velocity  component. 

For  subroutine  UPSTRM,  the  output  variables  are  stored  in  arrays 
YI,  UI,  and  VI,  and  the  number  of  strips  is  stored  in  NNI.  These 
variables  are  input  to  subroutines  UPRCRIT,  UPRINIT,  LWRCRIT,  and 
LWRINIT. 

For  subroutine  SPRCRTl,  the  output  variables  are  stored  in  arrays 
YSPR,  USPR,  and  VSPR,  and  the  number  of  strips  is  stored  in  NNSPR. 

These  variables  are  input  to  subroutine  SPRCRT2. 

For  subroutine  SPRCRT2  or  SUBCRT2,  the  output  variables  are  stored 
in  arrays  YU,  UU,  VU,  and  YL,  UL,  and  VL,  and  the  number  of  strips  is 
stored  in  NNDWN.  The  flow  conditions  for  the  dividing  streamline  are 
stored  in  arrays  YO,  UO,  and  VO.  These  variables  are  input  to  subroutine 
DWNSTRM. 

VARIABLES  IN  BLANK  COMMON 

C = 1 + 5/M^ 

CK  = 5/7M^ 

RS  = (1/7CK  + 1)^'^ 

FM  = M = Mach  number 
ALPHA  = O'  = angle  of  attack 
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OUTPUT  SUBROUTINES 


No  references  are  made  to  read  and  write  units  in  the  subroutines 
which  actually  perform  the  flow  integration  processes.  The  output 
variables  are  stored  in  arrays  and  are  output  on  the  line  printer  in 
subroutines  beginning  with  the  letters  10.  The  output  subroutines 
and  the  corresponding  flow  integration  subroutine  are: 


lOUPSTM 

UPSTRM 

lOSTGNA 

STAGNA 

lOUPRCT 

UPRCRIT 

lOUPRIN 

UPRINIT,SPRCRT1 

I0SPCT2 

SPRCRT2 

lOLWRCT 

LWRCRIT 

lOLWRIN 

LWRINIT, SUBCRTl , SUBCRT2 

lODNSTl^ 

DWNSTRM 

FLOW  INTEGRATION  SUBROUTINES 
Subroutine  UPSTRM 

This  subroutine  performs  the  upstream  integration  from  free -stream 
conditions  to  the  stagnation  point  on  the  airfoil.  The  primary  outputs 
of  the  subroutine  are  given  in  C01M)N/0UTC0M. 

AXA  = X stations  along  stagnation  streamline 
ARMO  = Mach  number  along  stagnation  streamline 
AY  = y stations  at  final  integration  station 
ARM  = Ifech  numbers  at  final  integration  station 

Other  important  variables  are 
CSO  = MAch  number 

CSl  = Mach  number  at  which  more  strips  are  added  to  the  flow  solution 
DYO  = local  slope  of  the  stagnation  streamline 

Integration  proceeds  from  the  free-stream  conditions  to  a point 
where  the  MAch  number  on  the  stagnation  streamline  is  considerably 
lessened.  This  part  of  the  integration  uses  subroutine  DIST  which 
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includes  the  effects  of  the  cross  velocity  gradient  DVOOI.  When  the 
Mach  number  RMO  reaches  a particular  value  of  8MT,  the  flow  integration 
uses  subroutines  STMR  and  LUMR  depending  on  the  slope  of  the  stagnation 
streamline,  DYO.  The  value  of  RMD  should  decrease  until  it  reaches  a 
value  of  CSO;  at  this  point,  flow  values  are  stored  for  future  use. 

If  this  is  the  first  time  that  flow  variables  are  stored,  more  strips 
are  added  to  the  flow  integration.  The  flow  integration  now  includes 
a total  of  NN  + NA.  strips  and  the  stagnation  streamline.  The  parameter 
CSO  is  decreased  by  a value  of  0.05,  and  flow  integration  continues  to 
the  point  where  RM)  reaches  this  value.  The  flow  values  are  stored  at 
this  point,  and  the  process  is  repeated  until  flow  values  are  stored  at 
four  points.  By  using  a Lagrangian,  values  of  BMO  are  extrapolated  to 
the  point  where  RMO  = 0,  the  point  where  the  stagnation  streamline  meets 
the  airfoil.  The  value  of  DE,  the  distance  from  the  last  computed  station 
of  upstream  integration  to  the  stagnation  point  on  the  airfoil,  can  now 
be  computed.  Upstream  integration  is  now  complete. 

The  final  section  of  this  subroutine  computes  airfoil  coordinates 
and  11  points  along  the  stagnation  streamline.  This  information  is 
input  to  subroutine  STAGNA  to  calculate  the  stagnation  streamline  geometry. 


Subroutine  STAGNA 

This  subroutine  computes  the  cross  velocity  gradient  at  the  point 
XS  and  the  stagnation  streamline  geometry  corresponding  to  this 
stagnation  point.  The  primary  outputs  of  this  subroutine  are  given 
in  COMMON/ECOM/  as: 

XOU  = x-coordinates  of  airfoil  nose 

YOU  = y-coordinates  of  airfoil  nose 

XAF  = x-coordinates  of  stagnation  streamline 

YAF  = y-coordinates  of  stagnation  streamline 
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other  important  variables  in  this  subroutine  are: 

DE  = distance  from  final  station  of  upstream  integration  to 
airfoil  surface 

YSO  = distance  which  stagnation  streamline  is  perturbed  by  the 
airfoil 

YS  = y-coordinate  of  stagnation  point 


For  a given  stagnation  point  XS,  the  radius  of  curvature  RA.  at  this 
point  on  the  airfoil  is  calculated.  The  cross  velocity  gradient  DVOOF 
can  then  be  calculated.  The  airfoil  coordinates  and  stagnation  streamline 
are  then  converted  to  one  Cartesian  frame  of  reference. 

Subroutine  UPRCRIT 

This  subroutine  determines  flow  criticality  on  the  upper  surface 
by  computing  the  Mach  number  at  various  points  along  the  surface.  The 
primary  outputs  of  this  subroutine  are  given  in  COMMON/OUTCOM/  as: 

AXB  = X station  on  airfoil  surface 

ARMB  = Mach  number  calculated  at  airfoil  surface 

For  a given  initial  point  XA,  a perpendicular  is  drawn  to  the 
airfoil  surface  which  intersects  the  final  station  of  upstream  integration. 
Depending  on  where  the  perpendicular  intersects  this  station,  the  mass 
flow  into  the  control  volume  is  calculated.  By  using  the  Newton-Raphson 
method,  the  flow  out  of  the  control  volume  is  calculated  which  matches 
the  input  flow,  and  the  Mach  number  at  this  point  is  calculated. 
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The  sketch  Illustrates  the  control  volume  and  the  corresponding 
geometry. 


Subroutine  UPRINIT(ICRIT) 

This  subroutine  determine  the  initial  flow  conditions  on  the  upper 
surface  for  a particular  initial  point.  The  solution  method  is  the  same 
as  UPRCRIT,  but  the  solution  is  performed  for  one  point  instead  of  a 
series  of  points.  Important  output  variables  are  given  in  COMMON/ RBUBCM/ 
as : 

RBUB  = mass  flux  at  initial  point 

UBINIT  = velocity  at  initial  point 

The  calculation  of  RBUB,  the  mass  flux  at  the  surface  of  the  airfoil, 
includes  the  term  CYD.  Increasing  the  value  of  CYD  decreases  the  value 
of  RBUB.  In  some  cases  the  value  of  UBINIT  cannot  be  calculated  because 
the  value  of  RBUB  is  too  large  or  too  small,  but  there  is  a wide  range 
of  values  of  CYD  for  which  a solution  exists. 
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Subroutine  SPRCRTl(J) 

This  subroutine  performs  the  initial  integration  of  flow  conditions 
for  supercritical  flow.  The  parameter  J Indicates  airfoil  surface. 

(J  = 1 for  upper  surface,  J = 2 for  lower  surface.)  Important  output 
variables  are  given  in  COMbK)N/OUTCOM/  as: 

XBO  = X stations  at  airfoil  surface 

RMBO  = Mach  number  along  stagnation  streamline 

DUBO  = velocity  gradients  along  stagnation  streamline 

The  subroutine  consists  of  three  main  steps: 

1.  Integration  in  subsonic  region  and  storage  of  data  during 
integration  to  extrapolate  through  the  sonic  point. 

2.  Extrapolation  through  the  sonic  point. 

3.  Integration  in  supersonic  region  and  extrapolation  of  data 
to  final  station. 

Flow  integration  in  this  subroutine  as  well  as  SUBCRTl  utilizes 
subroutine  INBO  to  calculate  the  flow  properties  at  the  surface  of  the 
airfoil.  All  other  subroutines  calculate  flow  properties  along  the 
airfoil  surface  in  subroutine  INAS. 

A typical  flow  integration  step  in  subroutine  SPRCRTl  has  the  form 

CALL  0UNS(1,J) 

NNl  = NN-1 

DO  10  N = 1,  NNl 
10  CALL  INAS(1,J,N,1) 

CALL  INB0(NN,J) 

During  integration  in  the  subsonic  region,  checks  are  made  at  each 
integration  step  on  the  surface  velocity  gradient  DUB  and  Ifech  number  RMB. 
If  DUB  is  less  than  5.0  or  RMB  suddenly  becomes  greater  than  1.0,  the 
trial  is  aborted.  For  purposes  of  extrapolating  data  through  the  sonic 
point,  data  are  saved  at  points  where  RMB  = 0.9,  0.92,  0.94  and  0.96. 

Once  data  at  those  four  points  have  been  saved,  an  attempt  is  made 
to  extrapolate  through  the  sonic  point  by  using  a Lagrangian  function. 

The  value  of  XA  is  incremented  until  a value  for  RMB  greater  than  1.03 
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is  produced.  Once  this  is  done,  the  flow  properties  at  this  station 
are  calculated,  and  integration  proceeds  to  the  supersonic  region. 

During  integration  in  the  supersonic  region,  checks  are  made  at  each 
integration  step  on  the  values  of  DUB  and  RMB.  If  DUB  is  greater  than 
60.0  or  RMB  is  less  than  1.0,  the  trial  is  aborted.  If  the  value  of  the 
velocity  gradient  and  Mach  number  at  the  innermost  strip,  DU(J,NN)  and 
RM(J,NN),  respectively,  are  greater  than  specified  values,  the  number  of 
integration  strips  is  reduced  by  one.  Because  of  different  coordinate 
systems  used,  a very  small  gap  in  the  flow  field  exists  between  the  output 
station  of  SPRCRTl(J)  and  the  input  station  of  SPRCRT2(J).  Flow  properties 
are  extrapolated  in  this  gap  by  using  a Lagrangian  function. 

Subroutine  SPRCRT2(J) 

This  subroutine  performs  integration  for  supercritical  flow  for 
the  bulk  of  the  airfoil  surface.  The  output  variables  located  in 
COMMON/OUTCOM/  are; 

AXA  = integration  station  XA 

ADU  = velocity  gradient  (du/dx)  at  innermost  strip  NN 

DDQO  = d/dx(dq/dx)  spatial  rate  of- change  of  dynamic  pressure  at 
innermost  strip  NN 

A typical  flow  integration  step  in  subroutine  SPRCRT2  has  the  form 

CALL  0UNS(1,J) 

DO  10  N = 1,  NN 
10  CALL  INAS(1,J,N,NN) 

Flow  integration  in  the  upper  surface  is  accomplished  in  three  steps; 
subcritical,  supercritical,  and  subcritical  flow  integrations.  Subcritical 
flow  is  calculated  from  the  leading  edge  to  the  sonic  line;  supercritical 
from  sonic  line  to  shock  location  SL  and  finally  subcritical  from  SL  to  the 
trailing  edge. 

During  flow  integration  in  the  supersonic  region,  checks  are  made 
on  the  values  of  DUO  and  RMO.  If  DUO  is  greater  than  100  or  BM)  is  less 
than  1.0,  the  trial  is  aborted.  If  the  value  of  DDQ  is  greater  than  the 
input  value  of  CDDQ,  the  number  of  flow  integration  strips  is  decreased 
by  one. 
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Flow  integration  proceeds  to  the  point  where  X is  greater  than  SL, 
and  the  Rankine-Hugoniot  relations  are  applied  there  across  the  designated 
shock  location.  If  the  value  of  DELS  is  greater  than  0.0,  allowances 
are  made  for  an  entropy  change  through  the  shock  location. 

New  flow  variables  are  computed  at  the  shock  location  SL,  and  flow 
integration  proceeds  to  the  trailing  edge.  Checks  are  made  on  DUO  and 
RMO  to  ensure  that  the  flow  remains  subcritical  throughout  the  integration. 

Subroutine  LWRCRIT 

This  subroutine  determines  flow  criticality  on  the  lower  surface 
by  computing  Mach  number  at  various  points  along  the  surface.  Important 
output  variables  given  in  COMMON/OUTCOM  are: 

AXB  = X stations  for  Mach  number  calculations 

ARMB  = Mach  number  calculated  at  airfoil  surface 

For  a given  initial  point  XA,  a perpendicular  is  drawn  to  the  airfoil 
surface  which  intersects  the  final  station  of  upstream  integration. 
Depending  on  where  the  perpendicular  intersects  this  station,  the  mass 
flow  into  the  control  volume  is  calculated.  By  using  the  Newton-Raphson 
method,  the  mass  flow  out  of  the  control  volume  is  calculated  which 
matches  the  input  flow,  and  the  Mach  number  is  calculated. 

An  illustration  of  the  control  volume  and  the  corresponding  geometry 
is  shown  below;  the  perpendicular  intersects  the  final  station  between 
Y(2,6)  and  Y(2,7). 
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Subroutine  LWRINIT(ICRIT) 

This  subroutine  determines  the  initial  flow  conditions  on  the  lower 

<> 

surface  for  a particular  initial  point.  The  solution  method  is  the  same 
as  LWRCRIT,  but  the  solution  is  performed  for  one  point  instead  of  a 
series  of  points.  Important  output  variables  given  in  COMMON/ RBUB CM/ 
are; 

RBUB  = at  initial  point 

UBINIT  = velocity  at  given  initial  point 

The  initial  flow  conditions  for  lower  surface  flow  are  computed 
in  the  same  manner  as  subroutine  LWRCRIT,  and  computation  proceeds 
according  to  the  value  of  ICRIT. 
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Subroutine  SUBCRTl(J) 

This  subroutine  performs  the  initial  integration  of  flow  conditions 
for  subcritical  flow.  Important  output  variables  are  given  in  COMMON/ 
OUTCOM/  as: 

XBO  = integration  station 

RMBO  = Mach  number  along  stagnation  streamline 
DUBO  = velocity  gradient  along  stagnation  streamline 

A typical  flow  integration  step  in  subroutine  SUBCRTl  has  the  form 

GALL  0UNS(1,J) 

NNl  = NN-1 
DO  10  N = 1,  NNl 
10  CALL  INAS(1,J,N, 1) 

CALL  INB0(NN,J) 

where  NN  is  the  number  of  strips  available  for  integration. 

During  flow  integration,  checks  are  made  on  the  values  of  RMO  and 
DUB.  If  RMO  is  greater  than  1.0,  the  assumption  of  subcritical  flow  is 
invalid  and  the  trial  is  aborted.  The  trial  is  also  aborted  if  the 
velocity  gradient  DUB  becomes  negative  near  the  leading  edge  of  the 
airfoil . 

Data  are  saved  at  four  stations  for  use  in  extrapolation  to 
the  output  flow  conditions  at  station  XB  which  is  fairly  close  to  CXI. 

The  extrapolation  is  needed  to  proceed  with  the  integration  in  subroutine 
SUBCRT2 . 

Subroutine  SUBCRT2(J) 

This  subroutine  performs  integration  for  subcritical  flow  for  the 
bulk  of  the  airfoil  surface.  The  output  variables  located  in  COMMON/ 
OUTCOM/  are: 

AXA  = integration  station 
ARMO  = Mach  number  at  surface 

ADU  = velocity  gradient  (du/dx)  at  innermost  strip  NN 
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A typical  flow  integration  step  in  subroutine  SUBCRT2  has  the  form 
CALL  0UNS(1,J) 

DO  10  N = 1,  NN 
10  CALL  INAS(1,J,N,NN) 

During  flow  integration  checks  are  made  on  the  values  of  RMD  and 
ADU,  If  RMO  does  not  lie  between  0.4  and  1.0,  the  trial  is  aborted  and 
if  the  absolute  value  of  the  velocity  gradient  (du/dx)^^^^  becomes  greater 
than  2.0,  the  innermost  strip  is  dropped.  At  a value  of  X = CX  = 0.5, 
another  strip  is  added  between  the  innermost  strip  and  the  airfoil  surface, 
and  flow  integration  continues  to  the  trailing  edge  of  the  airfoil, 

X = CX  = 1.0. 

Subroutine  DWNSTRM 

This  subroutine  performs  flow  integration  downstream  in  the  airfoil. 
The  output  variables  located  in  COMMON/OUTCOM/  are: 

AX  = integration  station 

APO  = pressure  ratios  along  dividing  streamline 
API  = pressure  ratios  on  NN  strip 

A typical  flow  integration  step  in  subroutine  DWNSTRM  has  the  form 
CALL  0UNS(1,1) 

CALL  INAS(1,1,NN,NN) 

where  NN  is  the  number  of  the  strip  used  to  integrate  the  intermediate 
strip. 

Subroutine  INVELOC(L,J) 

This  subroutine  calculates  the  velocity  component  V(J,NN)  of  the 
innermost  strip.  If  L = 2,  this  velocity  component  is  computed  according 
to  a Lagrangian  function;  if  L = 3,  this  velocity  component  is  computed 
according  to  a parabolic  function. 
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Subroutine  ARFL (XA , XB , YB , DYB , DDYB , J ) 

This  subroutine  determines  the  y-coordinate  and  its  first  and  second 
derivatives  at  a point  on  the  airfoil.  The  arguments  of  this  subroutine 
are; 

XA  = airfoil  x-coordinate 

The  following  values  are  calculated  at  the  given  angle  of  attack; 

XB  = x-eoordinate 
YB  = y-coordinate 
DYB  = first  derivative 
DDYB  = second  derivative 

J = 1 for  upper  surface  and  2 for  lower  surface. 

These  values  are  determined  according  to  the  equations  in  Appendix  A. 

Subroutine  DIST(M, I ,N,DYl , DVS ,DVl) 

This  subroutine  performs  a flow  integration  step  on  the  divising 
streamline  in  the  upstream  solution.  The  arguments  of  this  subroutine 
are ; 

M = ± 1,  indicating  direction  of  integration 
I =1  for  upper  surface  and  2 for  lower  surface 
N = number  of  innermost  strip 
DYl  = slope  of  dividing  streamline 

DVS  = increment  in  velocity  of  dividing  streamline 

DVl  = increment  in  velocity  of  vertical  component  of  dividing 
streamline 

This  subroutine  includes  the  effect  of  the  cross  velocity  gradient 
DVOO  in  determining  the  flow  conditions  far  upstream  from  the  airfoil. 

As  the  flow  integration  approaches  the  airfoil,  the  Mach  number  becomes 
too  small;  the  flow  integration  must  be  completed  by  subroutines  STMR 
and  LUMR. 
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Subroutine  STMR(N,T,DY,DVS) 

This  subroutine  performs  a flow  integration  step  on  the  dividing 
streamline  in  the  upstream  solution.  The  arguments  of  this  subroutine 
are: 

N = number  of  innermost  strip 

T = angle  of  dividing  streamline  with  respect  to  the  horizontal; 

T * SIN'^  DY/7  1 + DY^ 

DY  = slope  of  dividing  streamline 

DVS  = increment  in  velocity  of  dividing  streamline 

This  subroutine  neglects  the  effects  of  changes  in  the  vertical 
component  of  the  dividing  streamline  in  computing  the  flow  integration. 
This  is  valid  if  DY  > 0.1. 

Subroutine  LUMR(M,I,N,DYl,DVS,DVl) 

This  subroutine  performs  a flow  integration  step  on  the  dividing 
streamline  in  the  upstream  solution.  The  arguments  of  this  subroutine 
are: 

M = ± 1,  indicating  direction  of  integration 

I =1  for  upper  surface  and  2 for  lower  surface 

N = number  of  innermost  strip 

DYl  = slope  of  dividing  streamline 

DVS  = increment  in  velocity  of  dividing  streamline 

DVl  = increment  in  velocity  of  vertical  component  of  dividing 
streamline 

This  subroutine  computes  the  flow  variables  in  the  vicinity  of  the 
airfoil  when  the  value  of  DYl  is  less  than  0.1. 

Subroutine  0UNS(M,I) 

This  subroutine  performs  a flow  integration  step  on  the  next  to 
the  outermost  streamline.  The  arguments  of  the  subroutine  are: 

M = ± 1,  indicating  direction  of  integration 
1=1  for  upper  surface  and  2 for  lower  surface 
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The  flow  on  the  outermost  strip  is  assumed  to  bo  undisturbed  and 
this  integration  is  performed  on  the  next  strip.  The  remaining  strips 
in  the  flow  field  are  computed  in  subroutine  INAS. 

The  gradients  calculated  in  this  subroutine  are; 

DII(I,2)  = du/dx,  velocity  in  x-direction 

DVl  = dv/dx,  velocity  in  y-direction 

DYl  = dy/dx,  slope  of  streamline 

as  output  of  the  Runge-Kutta  integration  process.  Gradients  calculated 
as  input  to  the  next  inner  strip  are; 

DRHU(I)  = d/dx(pu) 

DPRU(I)  = d/dx(KP  + pu^) 

DRUV(I)  = d/dx(puv) 

Subroutine  INAS(M,I,N,IJ) 

This  subroutine  performs  a flow  integration  step  on  the  Nth  strip. 

The  arguments  of  this  subroutine  are; 

M = 1,  indicating  direction  of  integration 

C; 

I  = 1 for  upper  surface  and  2 for  lower  surface 

N = strip  number 

IJ  = NN  for  subroutines  SUBCRT2 , SPRCRT2 , and  DWNSTRM 

IJ  = 1 for  all  other  subroutines 

This  subroutine  performs  the  bulk  of  flow  integration  from  the  third 
to  the  NNth  strip.  For  subroutines  SUBCRT2,  SPRCRT2,  and  DWNSTRM,  it 
also  performs  integration  on  the  dividing  streamline.  This  is  accomplished 
by  the  use  of  the  parameter  ISKIP,  which  indicates  for  which  subroutine 
the  solution  is  being  computed. 

ISKIP  SUBROUTINE 

1 SUBCRT2 

2 SPRCRT2 

3 DWNSTRM 
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The  value  of  VO,  the  vertical  component  of  the  stagnation  streamline, 
is  computed  differently  in  these  three  subroutines. 

VO  = uo  * dy/dx  for  SUBCRT2 

VO  = VO  + h (dv  /dx)  for  SPRCRT2  where  dv  /dx  is  computed  according 
° to  MIR  ° 

VO  = vo^  _ exp[(l-x)RK]  for  DWNSTRM 

The  gradients  calculated  in  this  subroutine  are  the  same  as  those 
for  subroutine  OUNS. 

Subroutine  INBO(N,I) 

This  subroutine  performs  a flow  integration  along  the  dividing 
streamlines  for  subroutines  SUBCRTl  and  SPRCRTl.  The  arguments  of  this 
subroutine  are: 

N = number  of  innermost  strip 

1=1  for  upper  surface  and  2 for  lower  surface 

The  calculation  of  a strip  between  the  innermost  strip  and  the  airfoil 
surface  is  also  accomplished  here.  The  parameters  YO,  UO,  VO,  RO,  and  PO 
refer  to  this  strip  and  the  parameter  YB,  UB,  RB,  and  PB  refer  to  the 
values  at  the  airfoil  surface  along  the  dividing  streamline. 
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APPENDIX  C 

SUBROUTINE  FLOW  CHARTS 
UPSTRM 


INITIALIZATION 

CSO 

= 0.65 

CSl 

= 0.45 

I 

= 0 

INPUT 

RMT  & H 

PERFORM  FLOW 
INTEGRATION  STEP 
USING  DIST 


^RMO  < RMtJ^ 


IS  \ 
DYO  < CDY 

^ 


PERFORM  FLOW 
INTEGRATION  STEP 
USING  STMR 


PERFORM  FLOW 
INTEGRATION  STEP 
USING  LUMR 


RMD  < CSO 

^ 


^ IS  ^ 
CSl  < CSO 


ADD  NA  STRIPS 
TO  FLOW 
INTEGRATION 


CSO=CSO-0.05 


SAVE  FLOW 

1=1+1 

PROPERTIES 

BYO(I)=YO 

AT  THIS 

BMO(I)=RMO 

STATION 

Lil»1 


DE  = X - XO 


SAVE  FLOW  PARAMETERS 
AS  INPUTS  TO  OTHER 
SUBROUTINES 


STAGNA 


! 

COMPUTE  DVOOF  FOR 
SELECTED  STAGNATION 
POINT 


ADJUST  COORDINATES 
FOR  AIRFOIL  NOSE 
AND  STAGNATION 
STREAMLINE  TO  ONE 
CARTESIAN  FRAME 

RETURN 
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UPRCRIT 


( RETURN  ) 


INITIALIZE  INPUT 
DX  = 0.003 


1 = 0 
XA  = 0.0 


1 = 1 + 1 
XA  = XA  + DX 
DETERMINE  RBUB 
FOR  THIS  XA 


RBUBP  = (C-l)RBUB 
UB  = 0.1 


USING  NEWTON- RAPHSON 
METHOD  ITERATE  ON  UB 
UNTIL  RBUBP  = RUP 
= C*UB**0.4-UB**2.4 


CALCULATE  RMB 
FOR  THIS  UB 
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UPRINIT 
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SPRCRTl 


72 


73 


SPRCRT2 
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LWRINIT 
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SUBCRTl 


SUBCRT2 
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DWNSTRM 


APPENDIX  D 


DESCRIPTION  OF  INTERACTIVE  GRAPHICS  PROGRAM 

A description  of  the  interactive  graphics  program  requires  knowledge 
of  the  Graphic  Pac  subroutines.*  Such  software  is  invaluable  to  the 
applications  programmer  because  it  permits  him  to  use  the  interactive 
graphics  facility  with  relative  ease  and  simplicity. 

Graphic  Pac  allows  the  applications  programmer  to  create  light 
buttons,  light  registers,  and  text  entities  which  appear  on  the  console 
screen.  The  working  area  of  the  console  screen  is  a square  inscribed 
within  the  circular  screen  area.  The  lower  left-hand  corner  of  the 
working  area  has  the  coordinates  (-57,  -57)  and  the  upper  right-hand 
corner  has  the  coordinates  (57,  57).  The  light  buttons,  light  registers, 
and  text  entities  can  appear  at  any  of  about  13,000  addressable  points 
on  the  screen.  The  light  buttons  and  some  of  the  text  entities  are  light 
pen  detectable  (i.e.,  when  the  area  of  the  screen  where  they  appear  is 
touched  with  the  light  pen,  the  graphics  program  executes  the  task  overlay 
which  is  associated  with  them) . 

An  inspection  of  the  interactive  graphics  program  listing  could  serve 
as  an  introduction  to  the  workings  of  the  program.  The  comment  cards  give 
a pretty  good  indication  of  the  items  currently  being  displayed. 

Items  are  displayed  by  the  statement 
CALL  GENDF(ID,0) 

where  ID  is  a six-integer  array  identifying  a text  or  polyline  entity. 
These  polyline  entities  are  created  in  previous  statements.  Three 
statements  commonly  used  in  conjunction  are 

GALL  ENSHFT(12HY=  . . . , 2 , Y, 7H(F10 . 6) ) 

CALL  M0DFY(ID,1,2,12HY=  ) 

CALL  GENDF(ID,0) 

These  statements  take  the  value  Y in  format  FlO.6  and  place  it  after  the 
equals  sign  of  Y=  . The  text  entity  ID  is  then  modified  to  reflect  this 
new  information  and  then  this  text  entity  is  displayed. 


*See  NSRDC  Technical  Note  CMD  42-28,  August  1973. 
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BLOCK  DAm  CGRAF 


The  block  data  progtam  assigns  six  integer  values  to  the  arrays  to 
identify  each  text  or  polyline  entity.  It  also  stores  information  used 
in  some  of  the  text  entitles  and  light  registers  to  display  currently 
computed  values.  Some  of  the  Identifying  values  in  BLOCK  DATA  CGRAF  may 
be  changed  during  program  execution,  but  most  of  the  values  are  preserved. 

SUBROUTINE  PLOTT  (XIMIN , XIMAX , YlMIN , YIMAX) 

This  subroutine  creates  two  polyline  entities  which  graphically 
display  the  data  stored  in  arrays  XI  and  Yl.  Two  polyline  entities  at^ 
created  to  display  these  data  because  of  the  way  in  which  they  were 
obtained.  For  example,  PROGRAM  AFU2  calls  this  subroutine  to  display 
velocity  gradients  computed  in  the  initial  flow  integration  on  the  upper 
surface.  Since  velocity  gradients  cannot  be  computed  at  the  sonic  point, 
calculations  are  made  to  a point  just  before  and  a point  just  after  the 
sonic  point.  The  point  at  which  one  set  of  values  ends  and  the  other 
set  begins  is  stored  in  the  word  NNI(7).  Using  this  information,  the 
two  polyline  entities  are  created  and  displayed  in  this  subroutine. 

The  arguments  of  this  subroutine  are: 

XlMIN  = least  upper  bound  for  x scaling 
XlMAX  = greatest  lower  bound  for  x scaling 
YlMIN  = least  upper  bound  for  y scaling 
YIMAX  = greatest  lower  bound  for  y scaling 

If  only  one  value  is  stored  in  Yl,  a large  X covers  the  graphical 
display. 

SUBROUTINE  PLOTT  1 (XlMIN , XlMAX , YlMIN, YlM/lX) 

This  subroutine  creates  one  polyline  entity  which  graphically  displays 
the  data  stored  in  arrays  XI  and  Yl. 

The  arguments  of  this  subroutine  are: 

XlMIN  = least  upper  bound  for  x scaling 
XlMAX  = greatest  lower  bound  for  x scaling 
YlMIN  = least  upper  bound  for  y scaling 
YlMAX  = greatest  lower  bound  for  y scaling 
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If  only  one  value  is  stored  in  Yl,  a large  X covers  the  graphical 
display. 

SUBROUTINE  PL0TT2  (XlMIN,  X1MA.X , YlMIN , YlMAX , Y2MIN , Y2MX  , J) 

This  subroutine  creates  two  polyline  entities  which  graphically 
display  the  data  stored  in  Xl  and  Yl  and  XI  and  y2 . 

The  arguments  of  this  subroutine  are: 

XlMIN  = least  upper  bound  for  Xl  scaling 
XlMAK  = greatest  lower  bound  for  Xl  scaling 
YlMIN  = least  upper  bound  for  Yl  scaling 
YlMAX  = greatest  lower  bound  for  Yl  Scaling 
Y2MIN  = least  upper  bound  for  Y2  scaling 
Y2MA.X  = greatest  lower  bound  for  Y2  scaling 

J = an  indication  of  whether  or  not  Y2  values  shall  be  displayed 

If  only  one  value  is  stored  in  array  Yl,  a large  X covers  the  graphical 
display. 

SUBROUTINE  AMXMNI (YIMAX, YlMIN) 

This  subroutine  determines  the  largest  and  smallest  values  stored 
in  array  Yl. 

The  arguments  of  this  subroutine  are: 

YlMAX  = largest  value  stored  in  Yl 
YlMIN  = smallest  value  stored  in  Yl 

SUBROUTINE  AMXMN2 (Y2MAX , Y2MIN) 

This  subroutine  determines  the  largest  and  smallest  values  stored 
in  array  Y2 . 

The  arguments  of  this  subroutine  are: 

Y2MAX  = largest  value  stored  in  Y2 
Y2MIN  = smallest  value  stored  in  Y2 
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SUBROUTINE  AREA1(XMIN,XMWC,YMIN,YMAX) 

This  subroutine  defines  a subscreen  area  which  covers  the  area 
defined  by  the  screen  coordinates  (-40,  -40)  and  (57,  57)  and  creates 
a grid  display  for  this  subscreen  area. 

The  arguments  of  this  subroutine  are: 

XMIN  “ smallest  x value 
XM^  =■  largest  x value 
YMIN  = smallest  y value 
YMWC  = largest  x value 

SUBROUTINE  AREA.2  (XMIN, XMAX, YMIN, YMAX, ID) 

This  subroutine  defines  a subscreen  area  and  creates  a grid  display 
for  this  subscreen  area. 

The  arguments  of  this  subroutine  are: 

XMIN  = smallest  x value 
XbftX  = largest  x value 
YMIN  = smallest  y value 
YlftVX  = largest  y value 
ID  = subscreen  area 

One  of  two  subscreen  areas  can  be  defined  according  to  the  values 
of  ID.  If  ID  = 1,  the  defined  subscreen  area  is  covered  by  screen 
coordinates  (-40,  -40)  and  (57,  10).  If  ID  = 2,  the  defined  subscreen 
area  is  covered  by  screen  coordinates  (-40,  17)  and (57,  57). 

PROGRAM  LIEN (INPUT , OUTPUT , TAPE5=INPUT , TAPE6=OUTPUT) 

This  program  comprises  the  (0,  0)  overlay  and  initiates  execution  of 
the  graphic  display  files. 
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PROGRAM  NPUT 


This  task  reads  input  from  punched  cards  and  writes  out  some  of 
the  input  on  a line  printer.  The  program  writes  out  the  label  card  which 
identifies  the  run  and  the  data  points  and  first  derivatives  at  these  data 
points  which  determine  the  airfoil  shape  being  analyzed.  Control  is  then 
automatically  transferred  to  PROGRAM  STUP. 

PROGRAM  STUP 

This  task  creates  the  text  entities  and  the  light  registers  and 
light  buttons  used  throughout  the  interactive  graphics  program. 

The  59  data  points  required  for  the  creation  of  the  polyline  entity 
NAIRFL  are  stored  in  X and  Y arrays.  When  this  entity  is  displayed,  the 
airfoil  shape  is  shown  in  the  lower  left-hand  corner  of  the  screen. 

The  text  entities  stored  in  COMMON  blocks  INPUT  and  NOUT  are  displayed 
in  the  lower  right-hand  corner  of  the  screen.  The  18  light  registers 
corresponding  to  these  text  entities  are  displayed  by  using  the  same  screen 
coordinates . 

The  text  entities  stored  in  COMMON  blocks  NPRCD  are  displayed  in  the 
lower  left-hand  corner  of  the  screen.  These  entities  display  an  asterisk 
which  is  either  blinking  or  nonblinking.  The  nonblinking  asterisks  are 
light  pen  detectable  and  are  capable  of  transferring  program  control  to 
a particular  task.  The  text  entities  stored  in  COMMON  block  NAXES  are 
displayed  in  conjunction  with  the  displays  of  the  graphed  output  of  a 
particular  task. 

PROGRAM  STRT 

This  task  displays  the  flow  conditions  in  the  lower  right-hand  corner 
of  the  screen.  The  flow  conditions  are  displayed  in  the  four  text  entities 
and  are  light  pen  detectable.  The  four  text  entities  contain  information 
in  the  free-stream  Ifech  number,  the  angle  of  attack,  and  location  of  the 
outermost  strip  on  the  upper  and  lower  surfaces.  Two  light  buttons  are 
also  enabled,  one  of  which  allows  program  control  to  transfer  to  PROGRAM 
PRPl.  The  program  is  terminated  by  a call  to  subroutine  WAITE  and  awaits 
an  attention  interrupt  from  an  enabled  attention  source. 
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PROGRAM  AFUl 


This  task  erases  all  previous  displays  and  displays  information  from 
subroutine  lOUPRCT.  The  displayed  text  entities  allow  program  control  to 
be  transferred  to  PROGRAM  PRP3  or  PRP4,  or  to  PROGRAM  STRT  or  PRP2.  The 
program  terminates  and  awaits  an  attention  interrupt  from  an  enabled 
attention  source. 

PROGRAM  PRP3 

This  task  retrieves  the  integer  array  of  the  text  entity  from  which 
program  control  was  transferred.  If  ID(3)  = 1,  LRSUPR  was  the  attention 
source  and  if  ID(3)  = 2,  LRSUB  was  the  attention  source.  If  ID(3)  = 2, 
the  program  awaits  an  attention  interrupt.  If  ID(3)  = 1,  the  program 
erases  all  previous  displays  and  displays  the  text  entities  and  light 

t 

buttons  associated  with  PROGRAM  AFU2.  The  program  terminates  and  awaits 
an  attention  interrupt  from  an  enabled  attention  source. 

PROGRAM  AFU2 

This  task  displays  information  from  subroutine  lOUPRIN  corresponding 
to  initial  flow  integration  on  the  upper  surface.  The  two  text  entities 
display  values  of  RBUB  and  UB,  and  the  polyline  entity  graphically  displays 
DUDX  versus  x.  If  the  flow  integration  is  complete,  NN2  = 1,  and  the  text 
entity  which  allows  program  control  to  be  transferred  to  task  PRP5  is 
displayed.  The  other  two  displayed  text  entities  allow  program  control 
to  be  transferred  to  task  STRT  or  PRP2.  Two  light  buttons  are  also  enabled, 
one  of  which  allows  program  control  to  be  transferred  to  task  AFU2.  The 
program  terminates  and  awaits  an  attention  interrupt  from  an  enabled 
attention  source. 

PROGRAM  AFLl 

This  task  erases  all  previous  displays  and  displays  information  from 
subroutine  lOLWRCT.  The  displayed  text  entities  allow  program  control  to 
be  transferred  to  task  PRP3  or  PRP4,  or  to  task  STRT  or  PRP2.  The 
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program  terminates  and  awaits  an  attention  interrupt  from  an  enabled 
attention  source. 

PROGMM  ’i>RP4 

This  task  retrieves  the  integer  array  of  the  text  entity  from  which 
program  control  was  transferred.  If  ID(3)  = 1,  LRSUPR  was  the  attention 
source,  and  if  ID(3)  = 2,  LRSUB  was  the  attention  source.  If  ID(3)  = 1, 
the  program  awaits  an  attention  interrupt.  The  task  erases  all  previous 
displays  and  displays  the  text  entities  and  light  buttons  associated  with 
task  AFL2.  The  program  terminates  and  awaits  an  attention  interrupt  from 
an  enabled  attention  source. 

PROGRAM  AFL2 

This  task  displays  information  from  subroutine  lOLWRIN  corresponding 
to  flow  integration  on  the  lower  surface.  The  three  text  entities  display 
values  of  RBUB  and  UB  and  PO  at  the  trailing  edge,  and  the  polyline  entity 
graphically  displays  versus  x.  If  the  flow  integration  is  complete, 

NN2  = 1,  and  the  text  entity  which  allows  program  control  to  be  transferred 
to  task  AFUl  is  displayed.  If  NN2  = 1,  the  word  IGO(J)  = 1,  and  if 
IGO(J)  = 1 for  both  upper  and  lower  surfaces,  the  text  entity  which  allows 
program  control  to  be  transferred  to  task  PRP6  is  displayed.  The  other 
two  displayed  text  entities  allow  program  control  to  be  transferred  to 
task  STRT  or  PRP2 . Two  light  buttons  are  also  enabled,  one  of  which 
allows  program  control  to  be  transferred  to  task  AFL2.  The  program 
terminates  and  awaits  an  attention  interrupt  from  an  enabled  attention 
source . 

PROGRAM  PRP5 

This  task  erases  all  previous  displays  and  displays  the  text  entities 
and  light  buttons  associated  with  task  AFU3.  The  program  terminates  and 
awaits  an  attention  interrupt  from  an  enabled  attention  source. 
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PROGRAM  AFU3 


This  task  displays  information  from  subroutine  IOSPCT2  corresponding 
to  flow  integration  on  the  upper  surface.  The  text  entity  displays  the 
value  of  PO  at  the  trailing  edge  and  the  polyline  entities  graphically 
display  MO  versus  X.  If  the  flow  integration  is  complete,  NN2  =■  1, 
and  the  text  entity  which  allows  program  control  to  be  transferred  to 
task  AFLl  is  displayed.  If  NN2  = 1,  the  word  IGO(J)  = 1,  and  if  IGO(J)  = 1 
for  both  upper  and  lower  surface,  the  text  entity  which  allows  program 
control  to  be  transferred  to  task  PRP6  is  displayed.  The  three  other  text 
entities  allow  program  control  to  be  transferred  to  tasks  PRP2,  AFLl;  AFUl, 
or  PRP3.  The  program  terminates  and  awaits  an  attention  interrupt  from  an 
enabled  attention  source. 

PROGRAM  PRP6 

This  task  erases  all  previous  displays  and  displays  the  text  entities 
and  light  buttons  associated  with  task  DWNl.  The  program  terminates  and 
awaits  an  attention  interrupt  from  an  enabled  attention  source. 

PROGRAM  DWNl 

This  task  displays  information  from  subroutine  lODNSTM  corresponding 
to  downstream  flow  integration.  The  polyline  entities  display  PO  and  Pl 
versus  X.  If  flow  integration  is  complete  NN2  = 1,  and  the  text  entity 
which  allows  program  control  to  be  transferred  to  task  DWN2  is  displayed. 
The  other  four  displayed  text  entities  allow  program  control  to  be 
transferred  to  task  PRP2,  AFLl,  or  PRP5.  Two  light  buttons  are  also 
enabled  which  allow  program  control  to  be  transferred  to  task  DWNl. 

The  program  terminates  and  awaits  an  attention  interrupt  from  an  enabled 
attention  source. 

PROGRAM  DWN2 

This  task  erases  all  previous  displays  and  displays  information  from 
subroutine  AKUTTA  which  contains  the  pressure  distributions  on  the  upper 
and  lower  surfaces.  Three  text  entities  are  displayed  which  allow  program 
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control  to  be  transferred  to  tasks  PRP2,  AFLl,  and  AFIJl.  The  program 
terminates  and  awaits  an  attention  interrupt  from  an  enabled  attention 
source . 

PROGRAM  CVLI 

This  task  retrieves  the  integer  array  of  the  text  entity  from  which 
program  control  was  transferred.  The  text  entity  is  erased  and  replaced 
by  a light  register  which  has  the  same  code  number  as  the  first  integer 
of  the  text  entity.  The  task  then  awaits  keyboard  information  to  be 
typed  in.  When  a new  value  is  typed  in  and  the  keyboard  release  button 
is  activated,  the  light  register  will  be  replaced  with  a text  entity  with 
the  typed-in  value.  The  task  terminates  and  awaits  an  attention  interrupt 
from  an  enabled  attention  source. 

PROGRAM  CVLR 

This  task  is  structured  identically  to  task  CVLI.  The  keyboard 
information  is  typed  in  under  a different  format,  however. 

PROGRAM  STOP 

This  task  erases  the  screen  display  and  releases  the  console  from 
the  computer. 

PROGRAM  CHGV 

This  task  computes  a new  value  for  the  normal  velocity  component  of 
the  innermost  strip  according  to  LL(J).  If  J = 2,  the  Lagrangian  function 
is  used,  and  if  J = 3,  the  parabolic  function  is  used. 
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APPENDIX  E 


INPUT  DESCRIPTION  FOR  INTERACTIVE  GRAPHICS 

CARD  1 FORMAT (12, 8X,7A10) 

Columns  Description 

1-2  Console  number 

11-80  Title  for  the  run 

CARD  2 F0RMft.T(2l2) 

Columns  Description 

1-2  NP(1)  number  of  data  points  on  upper  surface 

of  airfoil 

3-4  NP(2)  number  of  data  points  on  lower  surface 

of  airfoil 

CARDS  SET  1 FORMA.T(3F20.15) 

Columns  Description 

1-20  XX(1,1)  x-coordinate 

21-40  YY(1,1)  y-coordinate 

41-60  AM(1,1)  first  derivative  at  this  point 

CARDS  SET  2 

Columns  Description 


1-20 

XX(1,2) 

x-coordinate  on  lower  surface 

21-40 

YY(1,2) 

y-coordinate  on  lower  surface 

41-60 

AM(1,2) 

first  derivative  at  this  point 

Foirmat  is 

repeated 

for  remainder 

of  airfoil  data  points 

CARD  SET 

3 

CARD 

1 

Columns 

Description 

1-10 

blank 

11-20 

DVOOI 

initial  cross  velocity  gradient 

21-30 

XS 

stagnation  point 

31-40 

XAO 

initial  point  upper  surface 
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CARD  SET 

3 - CARD  1 

(cont . ) 

Columns 

Description 

41-50 

CYDU 

flow  parameter  upper  surface 

51-60 

XAI 

initial  point  lower  surface 

61  -70 

CYDL 

flow  parameter  lower  surface 

71-80 

SL 

shock  location 

CARD  2 

Columns 

Description 

1-10 

XOO 

distance  from  first  station  of 
integration  to  airfoil  surface 

upstream 

11-20 

RMT 

Mach  number  used  in  upstream  flow 
integration,  ?a0.95  M 

CO 

21-30 

CDY  « 

0.1 

31-40 

YU 

location  of  outermost  strip  on 
surface 

upper 

41-50 

YL 

location  of  outermost  strip  on 
surface 

lower 

51-60 

CS 

a point  in  subcritical  flow  calculations 
where  a new  integration  scheme  is  adopted 

61-70 

RMC 

0.92  Mach  number  upper  limit  for 
SPRCRTl 

subroutine 

71-80 

BE  TAD 

angle  of  shock  foot  for  subroutine  SPRCRT2 

CARD  3 FORMAT (8F 10. 6) 

Columns  Description 

1-10  DELS  0 for  isentropic  flow  and  1 for 

nonisentropic  flow  through  shock  foot 
in  subroutine  SPRCRT2 

11-20  CDDQ  11.0  upper  limit  for  DDQ  in  subroutine 

SPRCRT2 

21-30  RKI  sa  5.0  exponent  for  normal  velocity 

component  in  downstream  integration 


90 


CARD  4 


F0RmT(6ll  ,4X,  7F10. 6) 


Columns  Description 


1 

2 

3 

4 

5 

6 


NNl  number  of  strips  used  in  upstream 

integration 

NA2  number  of  additional  strips  used  near 

final  station  of  upstream  integration 

NN3  number  of  strips  used  in  initial  solution 

of  upper  surface  flow  integration 

NN4  number  of  strips  used  in  initial  solution 

of  lower  surface  flow  integration 

NN5  number  of  strips  used  in  flow  solution 

along  the  upper  surface 

NN6  Intermediate  strip  used  in  calculating 

downstream  flow  conditions 


EXAMPLE  INPUT/OUTPUT 

This  example  corresponds  to  the  output  which  was  given  for  the 
demonstration  of  the  interactive  graphics  program  for  an  advanced  airfoil. 
In  a real  situation,  however,  there  would  be  a greater  amount  of  output 
corresponding  to  the  trial  solutions  for  the  various  solution  processes. 
The  input  and  output  for  this  example  represent  only  the  solutions  which 
are  known  to  be  correct. 

The  following  represents  a deck  for  a graphics  run: 

CXXX, CM2 0000, P4,G. 

CHARGE , CXXX , 000000000 . 

ATTACH (IGSGO , CAMVIGSGO) 

ATTACH (ATSK , CXXXATSK) 

IGSGO  (ATSK,1) 

7/8/9 


01 

TRANSONIC  FLOW 

PAST  AN 

ADVANCED  AIRFOIL 

0.7 

1.5 

6.0 

.004 

.0125 

1.564133  .018 

.6946 

.485 

2.5 

.68 

.1 

7.0 

7.0  .045 

.92 

90.0 

0.0 

.536653 

11.0 

0.02 

5.0 

.0002 

.002 

.005 

.02 

2222 

0.0 

.0125 

0.0 

.0304 

5.40000000000000 

.879686323493225 

91 


.05 

.0519 

.370509412053975 

.1 

.06529 

.194774312423792 

,1499999999999999 

.07893 

.098052334572903 

,249999999999999 

.0832 

.073397323457582 

.299999999999999 

'.0863 

,050558371596735 

.349999999999998 

.08826 

.0279691901555 

.399999999999999 

.08912 

.006764867781260 

.449999999999998 

.08912 

,006764867781280 

.449999999999998 

.08896 

.013028661280615 

.499999999999998 

.08782 

.032650222658823 

.549999999999997 

.08568 

.053170448084134 

.599999999999998 

.08247 

.075067985004662 

.649999999999996 

.0723 

.132701567406445 

.749999999999996 

.06476 

.169436118476982 

.799999999999997 

.05533 

.207753958685581 

.849999999999998 

.04899 

.245748046780653 

.899999999999995 

.08078 

.282253854191833 

.949999999999996 

,0159 

.310636536452030 

.999999999999996 

0,0 

,321999999999999 

0.0 

0.0 

5.050000000000011 

.0125 

.03 

.992163451845627 

.050 

.05333 

.379092385234589 

.1 

.06639 

.180750933111021 

. 149999999999999 

.07356 

.111703882321330 

.199999999999999 

.07802 

.069633537603695 

.249999999999999 

.0807 

.038161967263869 

.299999999999999 

.08193 

.012318593340822 

.349999999999998 

.08199 

,009436340627176 

.399999999999999 

.08096 

.032773230832096 

.449999999999998 

.07865 

.060470736044399 

.499999999999998 

.0748 

.094943824990326 

.549999999999997 

.069 

.13875396399439 

.599999999999998 

.0607 

.196040319032322 

.649999999999995 

.0495 

.247084759876374 

.699999999999996 

.0366 

.261620641462178 
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.749999999999996 

.024 

.236432674274866 

.799999999999997 

.0134 

.184648661438304 

.849999999999998 

.00581 

.1163726799718 

.899999999999995 

.002 

.033860618674168 

.949999999999996 

.0026 

.059215154668539 

.999999999999996 

.00805 

.16 
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TRANSONIC  FLOW  PAST  AN  ADVANCtO  AIROFOIL 


XCUPPER) 

0.000000000000 

•012500000000 

• 050000000000 
•100000000000 
•150000000000 
•200000000000 
•250000000000 
•300000000000 
•350000000000 

• <*  00  0 0 00  00  0 0 0 
•450000000000 
•500000000000 
•550000000000 
•600000000000 
.650000000000 
•700000000000 
•750000000000 
.800000000000 
.850000000000 
•900000000000 
.950030000000 

1. 000000000000 


MACH  NO.« 


Y(UPPER) 
0.000000000000 
•C30400000000 
.051900000000 
.065290000000 
•073250000000 
•076930000000 
•C8320Q0Q000Q 
•006300000000 
.080260000000 
. 089120000000 
•068960000000 
. 087820000000 
. 005660000000 
.082460000000 
.078110000000 
.072300000000 
•064760000000 
.055330000000 
.043990000000 
.030760000000 
• 01590  0000000 
3.000000000000 


OY/OX (UPPER) 
5.400000000000 
.879686323493 
. 370509412054 
.194774312424 
.131393338251 
.098052334573 
.073397323458 
.050558371597 
.027969190156 
.006764867781 
-.01 3028661281 
-.032650222659 
-.053170448084 
-.075067985005 
-.100757611897 
-.132701567406 
-.169436118477 
-.207753958686 
- .245748046781 
-.282253854192- 
-.310636536452 
-.322000000000 


X (LOWER) 

o.oooooooaoDOo 

•012500000000 
• 050000000000 
•100000000000 
•150000000000 
•200000000000 
•250000000000 
•300000000000 
•350000000000 
•400000000000 
•450000000000 
•500000000000 
•550000000000 
•600000000000 
•650000000000 
•700000000000 
•750000000000 
•800000000000 
•850000000000 
•900000000000 
•950000000000 

1.000000000000 


Y(LONCR) 

0.000000000000 

•030000000000 

.053330000000 

•066400000000 

•073560000000 

•078020000000 

•080700000000 

•081930000000 

.082000000000 

•080960000000 

.078650000000 

•074800000000 

.069000000000 

.060700000000 

.049500000000 

•036600000000 

•024000000000 

•013400000000 

•005810000000 

•002000000000 

.002600000000 

•008050000000 


DY/DX(LOW£R) 
5.050000000000 
.992163451846 
.379092385235 
.180750933111 
.111703882321 
. 069633537604 
•038161967264 
.012318593341 
-.  0094  36340627. 
-.032773230832 
-.060470736044 
-.094943824990 
-.138753963994 
-.196040319032 
-.247084759676 
-.261620641462 
-.236432674275 
-.184648661438 
-.116372679972 
-.033860618674 
. 059215154669 
.160000000000 


.700000 


ALPHAS  1.500000 


UPSTREAM. SOLUTION 


NN  3 5f  NA  « 
OVOOdl  3 
YINF (UPPER) 


XOO  « 2*50Q0t 

RHT  « *6800t 

COY  * 

•lOOOt 

YINFILONER)  = 

7*0000 

X 

HO 

X 

HO 

0.000000 

*700000 

1*580000 

*664379 

*060000 

• 700000 

1*640000 

*662260 

*120000 

•699999 

1*700000 

*660010 

•180000 

*699991 

1*760000 

*657632 

•240000 

*699963 

1*820000 

*655128 

*300000 

*699888 

1*880000 

*652501 

*360000 

*699720 

1*940000 

•649753 

*420000 

*699396 

1*955000 

*647770 

•480000 

.698823 

1*970000 

•644476 

*540000 

*697881 

1*985000 

•639939 

*600000 

• 696420 

2*000000 

*634252 

*660000 

*694254 

2*015000 

*627485 

•720000 

•691164 

2*030000 

*619631 

.780000 

• 686901 

2*045000 

*610563 

*840000 

*681189 

2*060000 

*599998 

*860000 

*678913 

2*075000 

*587490 

*920000 

*678489 

2*090000 

*572452 

*980000 

•677921 

2*105000 

*554204 

1*040000 

*677209 

2*120000 

*532026 

i.lOQOOO 

*676353 

2*135000 

•505221 

1*160000 

*675353 

2*150000 

*473153 

1*220000 

•674210 

2*160000 

*448560 

1*280000 

*672923 

2*175000 

*406421 

1.34QQ0Q 

•671493 

2*180000 

*390875 

1*400000 

*669923 

2*195000 

•339260 

1*460000 

•668212 

2*201000 

•316505 

1*520000 

•666363 

2*207000 

•292347 

Y 

H 

Y 

H 

7*000000 

*700000 

*234647 

*730981 

3*502907 

*701421 

*128829 

*733025 

1*754687 

•700521 

*076939 

.727602 

*883280 

*704802 

*001139 

.292347 

*451885 

*714635 

D£  « 

*056000 

YSO  s 

012598 

INITIAL  VELOCITY  PROFILE 


UPPER  SURFACE 


LONER  SURFACE 


Y 

7*000000 

3*502907 

1*754687 

*883200 

*451885 

*234647 

*128829 

*076939 

•001139 


U 

1*000000 

1*001827 

1*000620 

1*806074 

1*018548 

1*037219 

1*031526 

1*010017 

*432725 


V 

0*000000 

*006582 

*010738 

•018385 

*029913 

.076927 

•152198 

*229310 

*032349 


Y 

7.000000 

3*502907 

1.754687 

*883282 

*451889 

*234635 

•128809 

*076917 

•*001139 


U 

1.000000 

1*001580 

1*000252 

1*005286 

1*017053 

1.034252 

1*027078 

1*004665 

*432725 


V 

0.000000 

*006585 

*010738 

•018396 

*029932 

*077056 

•152380 

.229294 

•*032349 


0200 


\ 
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STAGNATION  SOLUTION' 


XS  « .004000 

FROM  THE  UPSTREAM  SOLUTION.  DE  = ,056000*  YSO  * .012590 


AIRFOIL  COORDINATES 


X 

YtUPPER) 

YCLOHER) 

X 

Y (UPPER) 

Y (LONER) 

0.000000 

Ol 000000 

0.000000 

.015000 

• 032128 

-.032781 

•QQ0600 

>003099 

-.002934 

•015600 

• 032605 

-.033348 

.001200 

• 005957 

-.005655 

•016200 

. 033073 

-.033907 

.001600 

• 006587 

-.008172 

•016800 

• 033535 

-.034457 

. 0 02400 

.010999 

-.010496 

•017400 

.033989 

-.034998 

.003000 

. 013205 

-.012657 

•018000 

•034437 

-.035530 

.003600 

• 015218 

-.014605 

•01860Q 

. 034877 

-.036054 

•004200 

. 017049 

-.016411 

•019200 

• 035311 

-.036570 

.004600 

•016710 

-.018065 

.019600 

.035737 

-.037077 

• 005400 

.020212 

-.0 19577 

•020400 

.036157 

-.037577 

• 006000 

•021568 

-.020958 

•021000 

.036570 

-.038068 

• 006600 

.022768 

-.022217 

.021600 

.036977 

-.038552 

• 007200 

.023865 

-.023366 

.022200 

.037378 

-.039027 

. 007800 

•024871 

-.024415 

•022800 

.037772 

-.039495 

• 008400 

•025756 

-.025373 

.023400 

.038159 

-.039956 

• 009000 

•026554 

-.026251 

.024000 

.038541 

-.040409 

•009600 

.027275 

-.027059 

•024600 

.038917 

-.040855 

•010200 

.027932 

-.027809 

.025200 

.039287 

-.041293 

•010800 

.028536 

-.028509 

•025600 

•039650 

-.041725 

•011400 

.029099 

-.029171 

•026400 

. 040009 

-.042150 

.012000 

.029632 

-.029804 

•027000 

.040361 

-.042567 

•012600 

.030148 

-.030419 

.027600 

.040708 

-.042979 

.013200 

.030654 

-.031023 

•028200 

. 041049 

-.043383 

.013800 

• 031153 

-.031618 

.028603 

.041385 

-.043781 

•014400 

.031645 

-.032204 

.029400 

.041716 

-.044173 

STAGNATION 

STREAMLINE 

X 

Y 

X 

Y 

-.052000 

-.027285 

-.018400 

-.022703 

-.046400 

-.026875 

-.012800 

-.021328 

-.040800 

-.026346 

-.007200 

-.019735 

-.035200 

-.325681 

-.001600 

-.017905 

-.029600 

-.024863 

•004000 

-.015826 

-.024000 

-.023876 

YS  = ,015626  OVOO(F)  = 6.018846 
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TEST  OF  C«TIC*L1T' 

UPPER  surface 


FROM  THE  UPSTREAM  SOLUTIOM,  MM  • 9,  OE  • .056000 

FROM  THE  STAGNATION  SOLUTIOM,  YS  » .015026.  YSO  « .012590 


XB 

HB 

XB 

MB 

0006 

*3663 

• 0033 

.6102 

0011 

.4120 

• 0039 

.6044 

0017 

• 4692 

• 0044 

.2661 

0022 

• 6066 

• 0060 

.9021 

0026 

• 6612 

INITIAL  SOLUTION 

upper  surface 


NN  = 6,  XAO  = .012500,  CYO  * 1.56413300,  RMC  « .920000,  HS  = .000200 

R0UB  = .904922  UB  = .921579 


xa 

H3 

PB 

OUOX 

XB 

MB 

PB 

OUOX 

• 0136 

• 6667 

1.0127 

16.2850 

• 0305 

• 9487 

.7772 

15.8738 

• 0142 

• 6932 

1*0061 

16.3241 

• 0308 

.9528 

.7736 

15.8377 

.0147 

.7007 

• 9994 

16*3604 

• 0311 

• 9569 

.7700 

15.8002 

.0152 

• 7063 

• 9926 

16.3938 

.0313 

.9609 

• 7665 

15.7613 

*0167 

• 7159 

• 9858 

16.4243 

• 0162 

.7235 

.9789 

16.4518 

.0362 

1.0328 

.7049 

15*  0 170 

• 0166 

k7312 

.9720 

16.4763 

• 0367 

1.0409 

• 6982 

14.9235 

• 0171 

.7369 

• 9651 

16.4977 

. 0373 

1.0489 

.6915 

14.8216 

• 0176 

• 7467 

.9581 

16.5159 

.0378 

1.0569 

• 6849 

14.7189 

• 0161 

.7544 

.9511 

16.5310 

• 0382 

1.0622 

• 6805 

14.6504 

• 0186 

• 7622 

• 9441 

16.5429 

• 0388 

1.0701 

• 6740 

14.5481 

• 0191 

.7701 

• 9370 

16.5516 

• 0393 

1.0760 

.6675 

14.4477 

• 0196 

.7779 

.9299 

16.5570 

.0399 

1.0859 

• 6610 

14.3513 

• 0201 

• 7666 

• 9228 

16.5591 

.0403 

1.0912 

• 6568 

14.2907 

• 0206 

• 7937 

.9156 

16.5578 

. 0408 

1.0991 

• 6504 

14.2089 

• 0211 

• 6017 

• 9084 

16*5532 

.0412 

1. 1043 

.6462 

14.1639 

• 0216 

• 8097 

.9012 

16.5452 

• 0418 

1*1020 

• 6480 

-3.9720 

. 0221 

.8176 

• 8940 

16.5337 

.0423 

I^IDOO 

• 6496 

-3«  3607 

• 0226 

• 6257 

• 8868 

16.5187 

.0429 

1.0984 

.6509 

-2.7351 

• 0231 

.8337 

.8  796 

16.5001 

.0434 

1.0971 

.6520 

-2.1054 

• 0236 

• 6417 

.8723 

16.4780 

• 0440 

1.0962 

.6527 

-1*  4765 

• 0241 

.8498 

• 6651 

16*4522 

• 0446 

1.0956 

• 6532 

-• 8575 

• 0247 

.6579 

• 6578 

16.4227 

• 0451 

1*0953 

• 6534 

••2568 

.0252 

• 6660 

. 8505 

16.3894 

.0457 

1.0954 

• 6534 

• 3l  / 8 

• 0257 

.6741 

• 8433 

16.3521 

.0463 

1.0958 

• 6531 

• 8593 

.0262 

• 8822 

• 6360 

16.3106 

.0468 

1*0965 

.6525 

1*  3616 

.0267 

• 8903 

• 8288 

16.2649 

• 0474 

1.0^74 

• 6518 

1.8201 

.0273 

.8984 

• 8215 

16.2144 

• 0480 

1.0985 

.6508 

2.2314 

• 0274 

• 9011 

• 8191 

16.1965 

• 0485 

1.0999 

.6497 

2.5934 

. 0277 

• 9052 

• 8155 

16.1947 

• 0491 

1.1015 

.6485 

2.9053 

• 0260 

.9093 

• 8119 

16*1691 

.0497 

1.1032 

.6471 

3.1670 

.0282 

• 9134 

• 6083 

16.1427 

• 0503 

1 . 1 06  0 

• 6456 

3.3795 

• 0265 

.9174 

• 8047 

16.1153 

• 0508 

1.1070 

• 6441 

3.5442 

.0287 

• 92  02 

.8023 

16.0965 

.0514 

1.1090 

• 6424 

3.6628 

• 0289 

.9242 

• 7987 

16.0676 

.0520 

1.1111 

• 6406 

3.7624 

.0292 

.9283 

• 7951 

16.0378 

• 0526 

1*1132 

.6391 

3*  8555 

.0295 

.9324 

.7915 

16.0070 

• 0531 

1.1154 

.6373 

3*9400 

.0  297 

.9365 

• 7879 

15.9752 

.0537 

1.1176 

• 6355 

4*  0163 

• 0300 

• 9406 

.7043 

15.9425 

• 0543 

1.1199 

.6337 

4.0847 

• 0303 

.9446 

.7007 

15.9087 

.0545 

1.1207 

• 6331 

4.1058 
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AIRFOIL  SOLUTION 
UPPER  SURFACE 


NC  « 5 

SHOCK  IOC.  * .ii850D0» 

FROM  INITIAL  CONDITIONS, 


BETA  s 90.000000, 
NN  « 6,  X(INIT) 


DELS  « 0.000000, 

» .053100 


COOQ  = 11.000000,  HO  » 


• 003000 


•••INTERMEDIATE  VELOCITY  DISTRIBUTION  USING  LAGRANGIAH  FUNCTION*** 


V 

U 

V 

6.971576 

l.OQOOQQ 

0.000000 

3.475318 

1.006400 

• 006529 

1.727478 

1.007842 

.010959 

X 

HO 

PO 

OUOX 

ODQ 

• 0621 

1.1373 

• 6200 

1.1337 

-3.7580 

• 0711 

1.1585 

.6035 

1.1036 

-3.1607 

. 0800 

1.1617 

• 5656 

1.0809 

-2.3741 

• 0890 

1.2057 

.5676 

1.0647 

-1.4564 

• 0980 

1.2298 

.5501 

1.0570 

-.4454 

.1106 

1.2634 

• 5260 

1.0611 

.5477 

• 1256 

1.3004 

• 5003 

1.0742 

1.3344 

• 1406 

1.3353 

.4770 

1.0996 

2.2770 

• 1556 

1.3677 

• 4561 

1.1405 

3.4859 

• 1706 

1.3972 

.4376 

1.2001 

4.8571 

• 1856 

1.4237 

• 4215 

1.2865 

7.0045 

• 2006 

1.4470 

• 4076 

1.4200 

10.9717 

.2156 

1.4670 

.3963 

1.6563 

20.0125 

• 2306 

1.4556 

.4027 

-.0144 

-.3461 

• 2456 

1.4446 

• 4092 

-.0206 

-.3391 

• 2606 

1.4334 

• 4158 

-.0266 

-.3333 

.2756 

1.4220 

• 4225 

-.0326 

-.3346 

• 2906 

1,4106 

.4294 

-.0365 

-.3358 

• 3056 

1.3991 

• 4364 

-.0445 

-. 3369 

• 3203 

1.3875 

• 4436 

-.0503 

-.3269 

• 3353 

1.3758 

.4509 

-.0562 

-.3342 

• 3503 

1.3640 

• 4584 

-.0620 

-.3325 

• 3653 

1.3520 

• 4661 

-.0677 

-.3289 

• 3603 

1.3399 

.4740 

-.0733 

-.3237 

• 3953 

1.3276 

.4821 

-.0788 

-.3182 

y 

U 

V 

. 856865 

1.026044 

•017403 

.426659 

1.083837 

.183356 

•051615 

1.426226 

•463849 

X 

MO 

PO 

DUOX 

ODQ 

• 4103 

1.3150 

.4905 

-.0842 

-.3130 

• 4253 

1.3022 

.4991 

-.0895 

-.3103 

• 4403 

1.2890 

.5081 

-.0946 

-.3077 

.4553 

1.2756 

.5175 

-.0997 

-.3051 

• 4706 

1.2617 

.5272 

-.1048 

-.3056 

• 4656 

1.2475 

.5373 

-.1097 

-.3073 

.5156 

• 6136 

.8977 

-.0439 

0.0000 

.5456 

.6112 

.8996 

-.0527 

0.0000 

.5756 

.6069 

.9037 

-.0617 

0.0000 

.6056 

• 600  8 

. 9093 

-.0706 

0.0000 

• 6361 

.7927 

.9165 

-.0802 

0.0000 

• 6661 

.7827 

.9256 

-.0905 

0.0000 

• 6961 

.7708 

.9363 

-.1016 

0.0000 

.7261 

. 7570 

• 9468 

-.1133 

0.0000 

.7566 

.7414 

• 9629 

-.1247 

0.0000 

.7666 

.7244 

.97  82 

-.1355 

0.0000 

.8166 

• 7062 

.9945 

-il448 

0.0000 

.8471 

• 6671 

1.0115 

1525 

0.0000 

.8771 

.6674 

1.0290 

-. 1585 

0.0000 

♦ 9071 

• 6471 

1.0468 

-.1622 

0.0000 

.9376 

• 6266 

1.0646 

-.1632 

0.0000 

.96  76 

• 6060 

1.0823 

-. 1603 

0.0000 

.9961 

.5857 

1.0996 

-.1535 

0.0000 

1.0106 

.5790 

1.1052 

-.  1505 

0.0000 

^8 


OOHNSTREAM  SOLUTION' 


NN  s 3,  H = .023000*  9K  * 5.000000 


FKOM  UPPER 

SURF*CF  INTEGRATION, 

SHOCK  LOC.  = 

•4850*  BETA 

s 90.0000* 

CS  = 

1.0000* 

X 

HO 

PO 

PI 

X 

NO 

PO 

Pi 

l.OAOQ 

.5775 

1.1065 

.9936 

5.6400 

.3328 

1.28  47 

• 8840 

1.1600 

.5759 

1.1078 

.9932 

5.7200 

.3275 

1.2878 

.8790 

1.2400 

.5742 

1.1093 

.9927 

5.8000 

• 3224 

1.2907 

.8739 

1.3200 

.5724 

1.1106 

.9922 

5.8800 

.3175 

1.2935 

• 8668 

1.4000 

.5704 

1.1125 

.9918 

5.9600 

.3127 

1.2962 

• 8636 

1.4800 

.5683 

1.1142 

.9913 

6.0400 

• 3080 

1.2988 

• 8584 

1.5600 

.5662 

1.1160 

• 9908 

6.1200 

• 3036 

1.3012 

• 8532 

1.6400 

.5639 

1.1179 

• 9902 

6.2000 

• 2993 

1.3035 

• 8481 

1.7200 

• 5615 

1.1198 

.9897 

6.2800 

• 2953 

1.3056 

• 6430 

1.8000 

.5591 

1.1219 

• 9892 

6.3600 

• 2915 

1.3077 

• 6361 

1.8800 

.5565 

1.1240 

• 9866 

6.4400 

• 2879 

1.3095 

• 6334 

1.9600 

.5538 

1*1262 

• 9880 

6.5200 

.2845 

1.3113 

• 6289 

2.0400 

• 5510 

1.1285 

• 9874 

6.6000 

• 2814 

1.3129 

• 6247 

2.1200 

• 5481 

1.1308 

• 9868 

6.6800 

.2785 

1.3143 

• 8208 

2.2000 

.5452 

1*1333 

• 9862 

6.7600 

.2759 

1.3157 

.6172 

2.2800 

.5421 

1.1358 

.9855 

6.8400 

.2735 

1.3169 

• 6141 

2.3600 

• 5389 

1*1384 

• 9848 

6.9200 

.2713 

1.3179 

• 6114 

2.4>00 

.5356 

1.1411 

• 9841 

7.0000 

• 2694 

1.3189 

• 6092 

2.5200 

.5322 

1.1438 

• 9633 

7.0800 

.2676 

1.3197 

• 6074 

2.6000 

.5287 

1.1466 

• 9826 

7.1600 

.2661 

1.3205 

• 8062 

2.6800 

.5251 

1.1495 

.9817 

7.2400 

.2648 

1.3211 

• 6053 

2.7600 

.5214 

1.1525 

• 98(h8 

7.3200 

.2636 

1.3217 

• 6049 

2.8400 

• 5176 

1.1555 

.9799 

7.4000 

• 2626 

1.3222 

• 6047 

2.9200 

• 5136 

1.1586 

.9790 

7.4800 

• 2618 

1.3226 

• 6049 

3.0000 

• 5096 

1.1618 

.9779 

7.5600 

• 2611 

1.3229 

.6052 

3.0800 

.5055 

1.1651 

• 9768 

7.6400 

• 2604 

1.3232 

.6056 

3.1600 

• 5012 

1.1684 

.9757 

7.7200 

• 2599 

1.3234 

• 6061 

3.2400 

.4968 

1.1718 

.9745 

7.8000 

• 2595 

1.3237 

• 6065 

3.3200 

• 4924 

1.1753 

.9732 

7.8800 

• 2591 

1.3238 

• 6069 

3.4000 

• 4878 

1.1788 

.9718 

7.9600 

• 2588 

1.3240 

• 6071 

3.4800 

.4831 

1.1824 

.9703 

8.0400 

• 2585 

1.3241 

• 6072 

3.5600 

.4783 

1.1861 

• 9688 

6.1200 

• 2582 

1.3242 

• 6071 

3.6403 

.4733 

1.1898 

.9671 

8.2000 

• 2580 

1.3244 

• 8069 

3.7200 

• 4683 

1.1936 

• 9654 

8.2800 

.2578 

1.3244 

• 6064 

3.8000 

.4632 

1.1974 

• 9635 

6.3600 

.2577 

1.3245 

• 6057 

3.8800 

• 4580 

1.2013 

• 9616 

8.4400 

.2575 

1.3246 

• 6049 

3.9600 

• 4527 

1.2052 

• 9595 

8.5200 

.2575 

1.3246 

• 6036 

4.0400 

• 4473 

1.2091 

.9573 

8.6000 

.2575 

1.3246 

• 8027 

4.1200 

•4418 

1.2131 

.9550 

8.6800 

.2575 

1.3246 

• 6015 

4.2000 

• 4363 

1.2171 

• 9525 

8.7600 

.2577 

1.3245 

• 6003 

4.2800 

.4307 

1.2211 

• 9500 

8.8400 

.2579 

1.3244 

.7991 

4.3600 

• 4250 

1.2251 

.9472 

8.9200 

• 2583 

1.3242 

• 7981 

4.4400 

• 4192 

1.2291 

• 9444 

9.0000 

• 2588 

IV  3240 

• 7973 

4.5200 

• 4135 

1.2331 

• 9414 

9.0600 

.2594 

1.3237 

• 7969 

4.6000 

.4076 

1.2371 

.9382 

9.1600 

• 2602 

1.3233 

.7969 

4.6800 

• 4018 

1.2411 

.9349 

9.2400 

• 2613 

1.3228 

.7974 

4.7600 

.3959 

1.2451 

• 9315 

9.3200 

• 2625 

1.3222 

• 7984 

4.8400 

• 3900 

1.2490 

.9279 

9.4000 

• 2640 

1.3215 

• 8000 

4.9200 

• 3841 

1.2529 

• 9241 

9.4600 

• 2656 

1.3207 

• 6022 

5.0000 

• 3782 

1.2567 

• 9202 

9.5600 

• 2676 

1.3196 

• 6050 

5.0800 

.3723 

1.2605 

• 9162 

9.6400 

.2697 

1.3187 

• 6063 

5.1600 

• 3665 

1.2642 

• 9120 

9.72D0 

• 2721 

1.3175 

• 6120 

5.2400 

• 3607 

1.2679 

.9076 

9.8000 

.2748 

1.3162 

• 6162 

5.320J 

.3549 

1.2714 

• 9032 

9.S80D 

.2777 

1.3148 

• 6206 

5.4QOO 

• 3493 

1.2749 

• 8986 

9.9600 

• 2808 

1.3132 

• 6254 

5.4800 

.3437 

1.2783 

• 8938 

10.0200 

• 2841 

1.3115 

• 6303 

5.5603 

• 3382 

1.2815 

• 8890 

TEST  OF  CRITICALITY 
LOWER  SURFACE 


THF 

UPSTREAM  SOLUTION,  NN  = 9, 

OF  * 

•056000 

FROM 

THF 

STAGNATION  SOLUTION,  YS  = 

.015626, 

YSO  » 

•012596 

XB 

MB 

XB 

MB 

• 0055 

• 1862 

• 0171 

• 6167 

• 0061 

.3557 

• 0200 

.6923 

.0112 

. 4661 

• 0230 

. 7605 

• 0141 

.5434 

.0259 

.9460 

AIRFOIL  SOLUTION 
LOWER  SURFACE 


N8 


6 


.0180, 

CYO  = 

•6946,  CX  = .0450* 

HSO  - .0020,  HO  ’ 

• 0050 

RBUB  = . 790322 

UB  s .699465 

XB 

MB 

P8 

DUOX 

XB 

MB 

PB 

ouox 

.0165 

• 4692 

1.1777 

7.9648 

.0328 

.5799 

1.1045 

5.6320 

• 0200 

.5005 

1. 1690 

7. 8586 

• 0345 

.5875 

1.0961 

5.1569 

.0215 

• 5116 

1.1602 

7.7195 

.0362 

.5944 

1.0923 

4.6380 

. 0231 

.5225 

1.1516 

7.5449 

. 0360 

.6004 

1.0671 

4.0781 

. 0246 

.5331 

1.1430 

7.3325 

.0397 

• 6056 

1.0827 

3.4817 

. 0262 

.5434 

1.1347 

7. 0798 

• 0415 

• 6099 

1.0791 

2.8547 

. 0278 

.5533 

1. 1266 

6.7849 

.0433 

• 6131 

1.0762 

2.2047 

. 0294 

.5628 

1. 1188 

6.4460 

.0451 

• 6154 

1.0743 

1.5407 

.0311 

.5717 

1.1114 

6.0618 

• 0451 

.6154 

1.0743 

) .5407 

•••INTERMEDIATE 

VELOCITY  DISTRIBUTION’^^ 

Y 

U 

V 

Y 

U 

V 

7.026424 

l.OOQOOO 

0.000000 

•913593 

1.025205 

.015297 

3 .532024 

1.006643 

.006752 

.483282 

1.072600 

.029165 

1.784255 

1.007989 

• 011303 

•139683 

•814474 

.354417 

XB 

MB 

P9 

OUOX 

XB 

MB 

PB 

DUDX 

.0617 

.6247 

1.0662 

• 4506 

.5472 

• 9010 

• 8192 

-.3811 

. 0770 

.6364 

1.0561 

• 3804 

.5622 

.8901 

.8289 

-.4529 

• 0920 

.6495 

1.0447 

• 3211 

.5772 

.8748 

• 8426 

-.530*^ 

.1070 

• 6635 

1.0324 

.2812 

.5920 

• 8556 

• 6590 

-. 610  9 

.1220 

.6772 

1.02Q3 

.2502 

• 6070 

• 0332 

• 8600 

-.6934 

.1372 

.6903 

1.0087 

• 2202 

• 6220 

.8082 

• 9026 

-.7619 

.1522 

.7029 

.9974 

.1931 

• 6367 

.7820 

• 9263 

-.8084 

.1672 

.7151 

.9865 

« 1682 

.6517 

.7556 

.9501 

-.8341 

. 1822 

.7268 

.9760 

.1443 

• 6667 

.7294 

.9737 

-.8415 

.1972 

.7381 

.9659 

• 1218 

• 6815 

. 7039 

• 9965 

-.8291 

.2125 

.7491 

.9560 

.1005 

.6965 

.6796 

1.0182 

-.8006 

. 2275 

.7597 

• 9464 

.0795 

.7112 

.6567 

1.0384 

-.7590 

.2425 

.7700 

.9371 

.0586 

.7262 

.6356 

1.05&6 

-.7093 

.2575 

.7799 

.9281 

.0378 

.7412 

• 6163 

1.0735 

-.6524 

-2725 

.7895 

.9194 

.0177 

• 7560 

.5991 

1.0883 

-.5900 

.2875 

.7909 

.9110 

-.0014 

.7710 

• 5040 

1.1011 

-.5264 

. 3025 

• 8081 

.9027 

-.0194 

.7860 

.5710 

1.1119 

-.4622 

.3175 

.8172 

. 8944 

-.0365 

• 8007 

• 5602 

1.1210 

-.3979 

.3325 

• 8262 

• 8863 

-.0534 

.8157 

.5514 

1.1282 

-.3344 

. 3475 

.8352 

. 8782 

-.0701 

• 8307 

• 5447 

1.1336 

-.2697 

.3625 

• 8442 

.0701 

0064 

.8457 

• 5403 

1.1372 

-.2043 

. 5775 

.8531 

.8621 

-.1029 

• 8607 

• 5383 

1.1389 

-.1377 

.3925 

-8619 

.8542 

-.1196 

.0757 

.5389 

1.1384 

-.0696 

.4075 

.8704 

• 8466 

-.1363 

• 8905 

.5423 

1.1356 

-• 0002 

.4225 

.8786 

.8393 

-.1533 

• 9055 

.5409 

1.1302 

• 0738 

.4375 

.8861 

.8325 

-.1703 

.9205 

.5592 

1.1218 

• 1522 

. 4525 

.8929 

.8265 

-.1875 

.9355 

.5730 

1.1096 

.2365 

.4675 

• 8984 

.0215 

-.2050 

.9507 

.5937 

1.0928 

• 3304 

.4025 

.9023 

• 8101 

-.2229 

.9657 

.6204 

1.0700 

• 434i 

.4975 

• 9041 

• 8165 

-.2412 

.9807 

• 6560 

1.0390 

« 5534 

.5022 

.9041 

• 8165 

-.2474 

.9957 

.7051 

.9955 

.6924 

.5172 

.5322 

.9079 

.9071 

.0131 

.8139 

-.2515 

-.3137 

1.0020 

. 7123 

• 9890 

.7440 
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AXRFOtt  SOLUriOM 
UPPER  SURFACE 


WC  » 5 

SMOCK  LOG.  « .^aSOIOt  BETA  « 90.000000*  DELS  • 0.000000*  COOQ  • ll.OOOOOO.  HO  » 

FROM  INITIAL  CONDITIONS*  NN  « A*  XCINITI  « .093100 


^••INTERNEOIATE  VELOCITY  DISTRIBUTION  USING  LA6RANGIAN  FUNCTION*** 


Y 

u 

V 

Y 

U 

V 

«.971S7k 

i.OOOOOO 

i.oooaoa 

•A9AA6S 

1.0260%4 

•017403 

3.«7921t 

i.OOAAOQ 

.00«<i29 

.A2A699 

1.083037 

.183396 

1.7Z7l|7S 

l.«07A%2 

.0104S9 

.051619 

1.426226 

•463849 

X 

NO 

NO 

DUOS 

OOQ 

t 

NO 

PO 

ouax 

.1.21 

1.1373 

.6200 

1.1337 

-3.7980 

.4103 

1.3150 

.4909 

-.0.52 

.0711 

1.1505 

.6035 

1.1038 

-3.1607 

.4293 

1.3022 

• 4991 

-.0.55 

• otoa 

1.1117 

.5858 

1.0809 

-2.3741 

• 4403 

1.2890 

• 9081 

-.0556 

.(a«o 

1.2057 

.5670 

1.0647 

-1.4964 

• 4993 

1*2796 

.5179 

-.0552 

.1910 

1.2258 

.5501 

1.0970 

-.4494 

• 4706 

1.2617 

.9272 

-.105. 

.1101 

1.2635 

.5260 

1.0611 

.9477 

• 4896 

1.2479 

.9373 

-.1052 

.1258 

1.3005 

.5003 

1.0742 

1.3344 

• 5196 

• 8136 

.8977 

-.0535 

.1508 

1.3353 

.5770 

1.0996 

2.2770 

• 9496 

• 8112 

• 8998 

-.0522 

.1558 

1.3677 

.5561 

1.1409 

3.4899 

• 9796 

• 8069 

.9037 

-.0512 

.1786 

1.3572 

.5376 

1.2001 

4.8971 

• 6096 

• 8008 

• 9093 

-.0206 

.1856 

1.5237 

.5215 

1.2869 

7.0049 

• 6361 

.792  7 

.9169 

-.0.02 

.2006 

1.5570 

.5078 

1.4200 

10.9717 

• 6661 

.7827 

.9296 

-.0505 

.2156 

1.5670 

.3563 

1.6963 

20.0129 

• 6961 

.7708 

• 9363 

-.1016 

.2306 

1.5558 

.5027 

-.0144 

-.3461 

.7261 

• 7970 

• 9488 

-.1133 

.2556 

1.5556 

.5052 

-.0206 

-.3391 

.7966 

• 7414 

.9629 

-.1242 

.2606 

1.5335 

.5158 

-.0266 

-.3333 

• 7866 

• 7244 

• 9782 

-.1355 

.2756 

1.5220 

.5225 

-.0326 

-.3346 

• 8166 

• 7062 

‘•9949 

-.155. 

.2506 

1.5106 

.5255 

-.0389 

-.3398 

• 8471 

• 6871 

1.0119 

-.1525 

.3056 

1.3551 

.5365 

-.0449 

-.3369 

.8771 

• 6674 

1.0290 

-.15.5 

.3203 

1.3875 

.5536 

-.0903 

-.3269 

• 9071 

• 6471 

1.0468 

-.1622 

.3353 

1.3758 

.5505 

-.0962 

-.3342 

♦ 9376 

• 6266 

1*0646 

-.1632 

.3503 

1.3650 

.5585 

-.0620 

-.3325 

• 9676 

• 6060 

1*0823 

-.1603 

.3653 

1.3520 

.5661 

-.0677 

-.3289 

• 9981 

• 9897 

1.0996 

-.1535 

.3603 

1.3355 

.5750 

-.0733 

-.3237 

1^0106 

• 9790 

1.1052 

-.1505 

.3553 

1.3276 

.5821 

-.0788 

-.3182 

•003000 


OOQ 

-.3130 

-.3103 

-.30T7 

*.3091 

*•3090 

-.30T3 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 
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OOHNSTREAM  SOLUTION' 


NN  = 3.  H 

s .020000 

• RK  « 

5.000000 

F«0M  UPPER 

SURFACE  INTEGRATION, 

SHOCK  LOC.  * 

.4050,  BETA 

> 90.000Q, 

CS  « 

1.00  00, 

X 

HO 

PO 

PI 

X 

MO 

PO 

PI 

l.OSOG 

.5775 

1.1065 

• 9936 

5.6400 

.3320 

1.2047 

.0040 

1.1600 

.5759 

1.1070 

.9932 

5. 7200 

.3275 

1.2070 

• 0790 

1.2400 

.5742 

1.1093 

.9927 

5.0000 

.3224 

1.2907 

. 07  39 

1.3200 

.5724 

1.1100 

.9922 

5.0000 

.3175 

1.2935 

• 8600 

1.4C00 

.5704 

1.1125 

.9910 

5.9600 

.3127 

1.2962 

.0636 

1.460G 

• 5603 

1.1142 

.9913 

6.0400 

.3000 

1.2900 

• 8504 

1.5603 

• 5662 

1.1160 

.9900 

6.1200 

• 3036 

1.3012 

.0532 

1.6400 

.5639 

1.1179 

.9902 

6.2000 

.2993 

1.3035 

• 0401 

1.7200 

.5615 

1.1190 

.9897 

6.2000 

.2953 

1.1056 

• 6430 

1.0000 

.5591 

1.1219 

.9892 

6.3600 

.2915 

1.3077 

. 8301 

1.0000 

.5565 

1.1240 

.9086 

6.4400 

.2079 

1.3095 

.0334 

1.9600 

• 5530 

1.1262 

• 9000 

6.5200 

.2845 

1.3113 

• 8289 

2.0403 

.5510 

1.1205 

.9074 

6.6000 

• 2814 

1.3129 

• 0247 

2.1200 

.5401 

1.1300 

.9060 

6.6800 

.2705 

1.3143 

• 8200 

2. 2000 

.5452 

1.1333 

.9862 

6.7600 

.2759 

1.3157 

.0172 

2.2003 

• 5421 

1.1350 

.9055 

6.0400 

.2735 

1.3169 

• 8141 

2.3600 

.5309 

1.1304 

.9040 

6.9200 

.2713 

1.3179 

• 8114 

2. 4400 

• 5356 

1.1411 

• 9041 

7.0000 

• 2694 

1.3109 

• 80  92 

2.5200 

.5322 

1.1430 

.9833 

7. OOOO 

.2676 

1.3197 

.8074 

2.6000 

.5207 

1.1466 

.9026 

7.1600 

• 2661 

1.  3205 

• 8052 

2.6000 

.5251 

1.1495 

.9817 

7.2400 

.2640 

1.3211 

• 8053 

2.7600 

.5214 

1.1525 

• 9000 

7.3200 

.2536 

1.3217 

.8049 

2.0400 

.5176 

1.1555 

.9799 

7.4000 

.2626 

1.3222 

.8047 

2.9200 

.5136 

1.1506 

.9790 

7.4800 

• 2610 

1. 3226 

• 8049 

3. 0000 

.5096 

1.1610 

.9779 

7.5600 

• 2611 

1.3229 

• 8052 

3.0000 

.5055 

1.1651 

.9760 

7.6400 

.2604 

1.32  32 

• 8056 

3.1600 

• 5012 

1.1604 

.9757 

7.7200 

.2599 

1.3234 

• 8061 

3.2400 

.4960 

1.1710 

.9745 

7.6000 

.2595 

1.3237 

• 8065 

3.3200 

• 4924 

1.1753 

.9732 

7. 0600 

.2591 

1.3230 

.8069 

3.4000 

• 4070 

1.1708 

.9710 

7.9600 

.2588 

1.3240 

• 8071 

3.4000 

• 4031 

1.1824 

.9703 

0.0400 

.2505 

1.3241 

• 8072 

3.5600 

• 4703 

1.1061 

• 9600 

0.1200 

.2502 

1.3242 

. 8071 

3.6400 

.4733 

1.1890 

.9671 

0.2000 

• 2580 

1.3244 

• 8059 

3.7200 

.4603 

1.1936 

.9654 

0.2800 

.2570 

1. 3244 

.8064 

3. 6000 

.4632 

1.1974 

.9635 

S.3600 

.2577 

1.3245 

.8057* 

3. 0000 

.4500 

1.2013 

.9616 

0.4400 

.2575 

1.3246 

• 8049 

3.9600 

.4527 

1.2052 

.9595 

6.52D0 

.2575 

1.3246 

. 80  30 

4. 0400 

.4473 

1.2091 

.9573 

0.6000 

.2575 

1.3246 

• 8027 

4.1200 

• 4410 

1.2131 

.9550 

0.6600 

.2575 

1.3246 

• 0015' 

4.2000 

• 4363 

1.2171 

.9526 

0.7600 

.2577 

1.3245 

• 0003 

4.2000 

• 4307 

1.2211 

.9500 

0.0400 

.2579 

1.  3244 

.7991 

4.3600 

.4250 

1.2251 

.9472 

0.9200 

.2503 

1. 3242 

.7981 

4.44QQ 

.4192 

1.2291 

.9444 

9.0000 

.2580 

1.3240 

.797.3 

4.5200 

.4135 

1.2331 

.9414 

9.0000 

.2594 

1.3237 

.7969 

4.6000 

.4076 

1.2371 

.9302 

9.1600 

.2602 

1.3233 

.7959 

4.6000 

• 4010 

1.2411 

.9349 

9.2400 

.2613 

1.3228 

.79^4 

4.7600 

.3959 

1.2451 

.9315 

9.3200 

• 2625 

1.3222 

.7984 

4.0400 

• 3900 

1.2490 

.9279 

9.40D0 

.2640 

1.3215 

• 80  00 

4.9200 

.3041 

1.2529 

.9241 

9.4000 

.2656 

1.3207 

.8022 

5.0000 

.3702 

1.2567 

.9202 

9.5600 

• 2676 

1.3190 

• 8050 

5.0000 

.3723 

1.2605 

.9162 

9.6400 

.2697 

1.3187 

• 0063 

5.160G 

.3665 

1.2642 

.9120 

9.7200 

.2721 

1.3175 

.0120 

5.2400 

.3607 

1.2679 

.9076 

9.0000 

.2748 

1.3162 

• 8162 

5.3200 

.3549 

1.2714 

.9032 

9.0000 

.2777 

1.3140 

.8206 

5.4000 

• 3493 

1.2749 

.0906 

9.9600 

• 2000 

1.3132 

.0254 

5.4000 

.3437 

1.2703 

.0930 

10.0200 

.2041 

1.3115 

.0303 

5.5600 

.3302 

1.2815 

.0890 

11.2041 
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lAL  HCSSUKE  DISTRIBUTION 


UPPER  SURFACE  LONER  SURFACE 


X 

PO 

X 

PO 

X 

PO 

X 

PO 

063L70 

.619965 

.412470 

.490487 

•018S29 

1.177701 

•420090 

.0352B> 

OTZLTO 

.603469 

.427470 

.499146 

•020009 

1^1689S9 

•439090 

.032051 

0814711 

.585753 

2442470 

.500124 

•021917 

1.160234 

•490090 

.02000. 

090470 

.567763 

.457470 

.517454 

•0230S1 

1.191977 

•469090 

.021505 

099470 

.550092 

.472470 

.527171 

•024612 

1.143043 

•460090 

.010120 

112470 

.525961 

.487470 

.537310 

•026199 

1.134692 

•499090 

.010521 

127470 

.500328 

.517470 

.897671 

•027612 

1.126990 

•900090 

.010503 

142470 

.476999 

.547470 

.899811 

•029449 

1.116809 

•919090 

.013110 

157470 

.456071 

.577470 

.903693 

•031109 

1.111406 

•930090 

.013805 

172470 

.437612 

.607470 

.909277 

•032792 

1.104466 

•949096 

.019212 

187470 

.421536 

.637470 

.916546 

•034499 

1. 096096 

•960090 

.121532 

202470 

.407762 

.667470 

.925562 

•036219 

1.092290 

•979090 

.102000 

217470 

.396282 

.657470 

.936342 

•037962 

1.067110 

•990090 

.159021 

232470 

.402678 

.727470 

.940833 

•039721 

1.062697 

.609090 

.079901 

247470 

.409169 

.757470 

.962851 

•041497 

1*079062 

•620090 

.902550 

262470 

.415782 

.707470 

.970176 

•043267 

1*076249 

.639090 

.920275 

277470 

.422528 

.617470 

.994460 

•049090 

1.074271 

•690090 

.958151 

292470 

.429411 

.147470 

1.011465 

•049090 

1.074271 

.669090 

.973077 

307470 

.436435 

.877470 

1.020967 

•060090 

1.066244 

•680090 

.990525 

322470 

.443606 

.507470 

1.046753 

• 079090 

1.096097 

•699090 

1.110191 

337470 

.450938 

.537470 

1.064631 

•090090 

1.044712 

•710090 

1.830355 

352470 

.458437 

.967470 

1.082333 

•109090 

1.032369 

•729090 

1.050121 

367470 

.466118 

.997470 

1.099616 

•120090 

1*020274 

•740090 

1.073517 

382470 

.474002 

1.007470 

1.105244 

•139090 

1.006660 

•799090 

1.000273 

397470 

.482115 

•190090 

•997403 

.770090 

1.101175 

•169090 

•966927 

•769090 

1.111905 

•180090 

•976032 

•000090 

1.120950 

•199090 

•969899 

•619090 

1.120210 

•210090 

•999970 

•630090 

1.133005 

•229090 

•946373 

•649090 

1.137233 

•240090 

•937062 

•660090 

1.131100 

•299090 

•926106 

•679090 

1.131351 

•270090 

•919421 

•690090 

i.135017 

•269090 

•910966 

•909090 

1.131221 

•300090 

•902666 

•920090 

1.121707 

•319090 

•694449 

•939090 

1.109021 

•330090 

•666292 

•990090 

1.092121 

•349090 

• 676183 

•969090 

1.070820 

•360090 

•670106 

•960090 

1.038901 

•379090 

•662097 

•999090 

.995050 

• 390090 

•894221 

1.000090 

.989020 

•409090 

•646968 

. 
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APPENDIX  F 

MIR  SUBROUTINES  LISTING 


5 


10 


15 


20 


25 


30 


35 


1.0 


45 


50 


55 


60 


SUBROUTINE  lOUPSTT 
C 

C THIS  SUBROUTINE  PRINTS  THE  INPUT  PARAHryERS  ANO  THE  CALCULATED 
C OUTPUT  EOR  subroutine  UPSTRH 
C 

COMNON/TUVSAVT  NNINIT ,NNS“R,NNTHN 
1 ,Yma,2t,UK10,2»,VI(10,2),TU»(96) 

COMPON/AINPUT/  A TN I 24 ) , NN { T ) ,H(6) 

COMPON/OUTCON/ 

1 AXtieO)  ,A9P0<160) ,AT(10)  ,ARN(10)  ,DUPtl40)  ,11,112 

OIPENSION  ISTAP<5) ,ITITLE ( 2) 

DATA  ( ISTARt II , I=l,5» /5» 1 0H»» / 

DATA  (ITITLE(I) ,I=1,2)/10H  UPST»EAP  .lOHSOLUTION  *2 

WRITE  (6, 2 0 0)  (ISTAB(n,I  = l,5)  ,(ITITLE(I),I  = 1,2)  ,tISTAR(I)  ,1  = 1,5) 

1 ,NN(1I,NN(2),ATN(1),<AIN(I),I  = *,10),H(1),AIN111),AIN(12) 

IE(H«l)  .GT.O.OOO)GO  TO  5 
HRITEI6 , 3401 

return 

5 call  UPSTRP 

ieiii.eq.o)  return 
IhALF  = IIT2 
J = POO(II,2) 

IHALFl  = THALT 

lElJ.EO.l)  IHALFl  = IHALT.l 

HRirE(6,4  00I 

IF  (II.EQ.  1)  GO  TO  15 

00  10  1 = 1, IHALF 

10  WRITE(6,3  00)  A X ( 1 1 , ARPO  ( 1 1 , AX  t !♦  IHAL^  1 ) , A RH  0 t I ♦ I H AL  FI  ) 

IFU.NE.D  GO  TO  15 

15  HRITE(6,3  00)  A X ( IH  AL  F 1)  , A RPO<  IH  ALFl ) 
n IF(I12.EC.0I  HPIT-:(5, 260) 

IHALF  = II2/2 
J = P00(II2,2) 

IHALFl  = THALF 
IF(J,E0.1)  IHALF1=IhALF+1 
HRITE(6,410I 
IF(II2.EQ.l)  GO  TO  25 
00  20  I=1,IHALF 

’0  WRITE(  6,3  0 0)  a Y(  I)  ,AR“(  I)  , AV(  I.IhALFI  ) , ARM(  I + IHALFI) 

IF(J.NE.I)  go  to  28 
25  HRTTE(  6,3  00)  A y < IH  AL  f 1 ) , A R“  ( IH  AL  F l) 

28  WRITE(6,X20)  A I N » 2 0)  , A IN  ( 2 1) 

DO  30  1=1, NNINIT 

30  HRITE«6,3  30)  Y I ( 1 , 1)  , UI  ( I , 1 ) , VI  ( 1 , 1 ) , Y I ( I , 2 ) , UI  ( 1 , 2 ) , V H I , 2 ) 
rfturn 

200  FOPPATI lHl,4(n 7X,12A10, 

1 2//20X,4HNN  =,I2,5H,  NA  =,I2//20X,9HOVOOa)  =, 

2 Fir.4,9H,  XOO  = FH.I.,  9H,  RPT  = F8.4, 

3 9H,  COY  = F8.4,7H,  H = F5.i,//20X,13hYINF(UPPFR)  =F«.4, 

4 17H,  YINF(LOHER)  =F0,4) 

250  FORPAT (72  OX, 3qH*TTT*»T»T*INTFGPATION  WAS  NOT  COPPLFTEO  I 
300  FOPFAK 30 X,2( 10X,2F10.6I ) 

3 2 0 foRHAT(7/47X,4HDE  = , f 1 0 . 6 , 1 OX , 5HY<;0  = , F 1 0 . 6 77/5  2 X , 2 5H  INITIAL  VELO 
ICITT  PR0FILE7739X,  13HUPPER  SURF  ACE , 27 X , 13HL OH ER  SURF A CE77 1 7 X , 
2?(19X,lHY,9X,lHU,9X,lHvn 
330  FORHAK 20X,2( lOX, 3F10.6) ) 

340  FORPAT( 7720X, 2qH»».»».*»»»$TEP  SIZE  TOO  SHALL) 

403  F9RHAT</727X,P(18X,lHX,qx, 2Hmoj ) 

410  F0PPAT(7/26X,?(19X,1HY,  px.IHP)) 

END 
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5 


lO 


15 


20 


25 


30 


35 


40 


45 


50 


55 


60 


65 


C 

c 

c 


c 

c 


c 

c 


c 


c 


SUBPOUTINE  UPSTPM 

THIS  SUBROUTINE  CALCUL4TES  THE  UPSTREftM  FLOW  CONDITIONS 

CONNON  C 

CONHON/ACOHFX 
1 ,T0  *PO 


CONHONFBCOHF  XO 

CONNON/ECON/UOS&y  ,ROSAV 
1 .OUNI22)  .XAFI50)  ,TAP«5 


,CK  ,RS 

,FH 

,XA  ,VN 

.VS 

,RO  ,UO 

,vo 

,RI2,10I  ,U(2,10)  ,V(2,10I 

XO  ,ovon 

<L 

,ROSAV  .XS#V 

,nvooF 

, Tap  15  0,21 

OVOOI  ,DDUM(61 

,xoo 

,EOUM<ri ,OE 

,YS0 

.NOUMCSl ,HOHN 

,H0UM(5) 

, ALISHA 
.H 


.OT 


>101 


,XSTGlll),T5TGtlll 


;OHHONFAINPUTF  OVOOI  ,DDUH(6»,X00  ,RHT 

TU  ,YL  ,EOUM<ri,OE  .TSO  .YS  ,F0UM(2» 

! ,NNI  ,NA  ,NOUHC5) ,HOHN  ,H0UH(5) 

''"°””aX«160)'^''.APHO(1601  ,AT(10)  ,ARHUQ)  .COUH(140)  , II  ,NNO 

■OHHON/TUVSAVF  NNINIT , NNSBR > NNOHN 

,TmO,2>  »UI(10,2)  fVI(10,2>  ,YUVt96) 

3IHENSION  BX(6)  ,PY0t6J  ,BN0t61  ,T1(?)  »T2(2t  »A1U(2I  ,A2U(2>  ,A1V12I 


INITIALIZE  INPUT 
G<AO,  Al,  A2,  Z»  = 
NTERM  = 3 
CSO  = FH-.08 
CSl  = CSO-0.2 
NN  = NNI 
OVOC  = OVOOI 
H = MOWN 
TU,1»  = TU 
V12,1»  = XL 
II  = 0 
NNO  = 0 

RS  S Jl.F(r.*C<) 

L = 4 
XO  = xoo 
X = OtO 


»0  ♦ Al*z  + A2*2*7 


♦ l.)*»2.5 


initialize  '"LOW  TO  FREESTREAM  CONDITIONS 
00  10  J=^1.2 
DO  5 N = 2*  NN 
YU,N>  = YIJ,N-1)»0.5 
B1J,N)  = 1. 

R<J,N»  = 1. 

UtJ,N»  = 1. 

VTJ»N)  = 0. 

OHlJjN)  = EM 
5 DU(J,N)  = 0.0 
RM<J,U  = >^M 
U(J.1>  = 1.0 
10  VtJ,H  = 0.0 
YO  = 0. 

RO  = 1. 

PO  p 1. 

un  = 1. 
vs  = 1. 

VO  - 0. 

RMO  = EM 


IT  = II*1 
ax(ii)  = X 
AR«C(II)  = RMC 

DVfl  = 0.0 
DO  ?6  <=1,100 
DO  24  <K=1,NTEPM 

PtPEORM  a EUOW  INTFGRaTlON  STEP  USING  SU°ROUriNE  DIST 
ISGN  = 1 
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o 


71 


75 


«• 


85 


98 


95 


100 


105 


110 


115 


120 


125 


130 


135 


00  22  J«li2 
CALL  0UNS(ISGN,J) 

00  21  N s 3(  NN 

21  CALL  INASdSGN, J,N,lt 

22  ISGN  » -1 
IFIK.LE.3)  GO  TO  23 

CALL  OISM-1,1,NN,OTA,OUA,OOA1 

23  CALL  DIST (1,2,NN,OTO,OVS«OVO) 

C 

X X X ♦ H 

vs  X »3  » H»0VS 

VO  X VO  ♦ H»(OVO  - OVA) 

IFIVS.LT.VOI  RETURN 

UO  X SQRTIVS»»2  - V0*»2» 

TO  X TO  «•  H*OTO 

RO  X MC  - VS*«2  )/fC  - l.)»»»2.5 

PO  X R0»»1.«. 

RIO  X VS»SORT( P0/< l.L’CK’PCn 

c 

IF (RMO.LE .RHT)  GO  TO  25 
C 

24  CONTINUE 

C CALCULATE  CERTAIN  FACTORS  USED  IN  DETERMINING  R9U9 

25  II  X IIH 
AXtII)  X X 
ARMOai)  X RMO 

c 

IF  (RMO  ,LE.  RNT)  GO  TO  27 
C 

26  CONTINUE 
C 

'27  I X 0 
C 

28  H X A“S< < 5.0-X) 7H) 

C 

C OEPENOING  ON  DYO  (THE  SLOPE  OF  THF  STAGNATION  STREAMLINE)  PERFORM 
C A FLOW  INTEGRATION  STE“  USING  SURROUTINE  STMR  OR  LUMR 
IF  (OTO  .GE.  COT  .OR.  OT  .GE.  COT)  GO  TO  35 
DO  34  K X 1,  M 
C 

DO  31  KKxI.NTERm 

c 

C PER>^0RM  a FLOW  integration  STEP  USING  LUMR 
ISGN  X 1 
00  30  Jxl,2 
call  0UNS(ISGN,J) 

00  25  N X 3,  NN 
25  call  INASdSGN,  J,N,1) 

30  ISGN  X -1 

CALL  LUMR (-1 , 1 ,NN,OYA ,OUA,OVA) 

CALL  LUMRtl,2,NN,DY0,0VS,0V0) 

C 

X X X » H 

= vs  ♦ H»OVS 
VO  X VO  + H»(OVO  - OVA) 

UO  X SORT  (VS»»2  - vn»*2) 

TO  X TO  ♦ H»OYO 

PO  X uc  - VS'»2  )7(C  - 1. ))••?. 5 

PO  X R0»»1.4 

RMO  X VS»SORT(RO/<  1.4»CK*P0)) 

IF  (RMO  .LE.  CSO)  GO  To  42 
IF (OTO. GE .COY)  GO  TO  32 

31  CONTINUE 

32  II  X Il»l 
AX(II)  X X 
ARMO(II)  X RMO 
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IF  »0T0  ,GE.  con  GO  TO  15 


Ik  CONTINUE 


IM 


15  T I *T»N<V0FU0» 

00  *t0  K = 1,  " 

00  78  5K=1,NTERX 


151 


155 


160 


C REPFORM  A FLOW  INTEGRATION  STE*  USING  SIMP 
ISGN  = 1 
00  77  J=l,2 
CALL  OUNSfISGN.J) 

00  76  N = 3,  NN 
36  CALL  INAS(IS6N,J,N,1» 

IT  ISGN  = -1 

call  STMRtNN,T,aY,OVS) 

C 

C 

C IF  PMO  INACH  NUNPri?  AT  THE  STAGNATION  STREAMLINE)  IS  C0NSI0ERA3LT 
C LESSENED,  SAVE  FLOW  PARAMETERS  AT  THIS  STEP 
IF  fPMO.LE  .CSO)  GO  TO  1.2 


165 


170 


175 


180 


185 


ISO 


19E 


200 


205 


38  CONTINUE 
II  = II»1 
AXni)  = X 
ARMC(II)  = RMO 
C 

IF(X.GE.7. .OR.X.LT.O. O.OR.DVS.GE. 0. 0)  RETURN 
60  CONTINUE 
RETURN 
C 

W2  II  = II»1 
Axni)  = X 
APMOai)  = RMO 

c 

IP(CS1.LT  .CSO)  GO  TO  A3 
C 

C SAVE  flow  properties  AT  THIS  STE» 

I = I » 1 
BXTI)  = X 
3T0tI)  = YC 
RMOtl)  = RMO 
IF  (I  .EQ.  3)  H = 0.002 
CSO  = CSO  -0.05 
IF<I-A)  28,60,60 
C 

C CSl  IE  LESS  THAN  CSO  FOR  Tnr  FI°ST  PASS  THROUGH  THF  LOOP,  SO 
C STATEMENT  1.3  IS  EXECUTED  ONLY  ONCE 
A3  00  AA  J=1 ,2 

YKJ)  = Y(J,NN)-YC 
Y2(J)  = Y(J,NN-l)-YO 

CALL  AlSUPtYKJ)  ,T2(J),UO,U(J,NN|  ,U(J,NN-1)  ,A1U«J)) 

CALL  A2SUE(Y1(  J)  , Y2(  J>  ,UO,U(  J,NN)  ,')( J,  NN-  1)  ,A2U  I J)  > 
call  A1SU3(Y1(J),Y2(J),V0,V<J,NN),V(J,NN-1)  ,A1VU)1 
CALL  A2SU8(Y1(J) ,V2( J) ,VO,V(J,NNI ,VtJ,NN-l) ,A2V(J)> 
vn  = -VO 
AA  YO  = -TO 

0 

C ADO  MA  strips  TO  The  FLOW  InTEopation  PROCESS  AT  THIS  POINT 
N1  = NN  ♦ 1 
NN  = NN  ♦ NA 
on  A7  J=l,2 
03  A6  N = Nl,  NN 
Y(J,N)  = (Y(  J,N-1) -YO) /?.  *YO 

UtJ,N)  = G(U0,A1U(J) ,A2U(J) ,YCJ,N)-YC) 

V(J,N)  r G(V0,  A1V«  J)  , A2VT  J)  ,Y(J,N)-YO) 

VEC  = U(J,N)»U«J,N)*V(J,N)»V(J,N) 

R(J,N)  = 1{C-VS0T7(C-1. )»•»?. 5 

P(J,N1  = R(J,N)»»1.A 
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»H  1*6  RM«J,N)  * SQRTC*SQ*RU|NI/(1.i*»CK*PIJ,N)>  » 

*0  * -»0 

67  TO  * -TO 

C 

H * H/5. 

Z15  IF  IH  ,LT.  0.005)  H = 0.005 

CSO  = CSl 
GO  T028 
C 

C SAVE  the  Y stations  ANO  THE  hach  NUNAERS  AT  THF  FINAL  INTEGRATION 
ZZO  C STEP 

60  00  El  J=1,NN 
AT(J)  = TI1,J) 

61  ARMTJI  = RM(1,J) 

NNO  = NN*1 

225  ATTNNOI  = TO 

ARNTNNO)  = RNO 
XO  •=  X . 

C 

C EXTRAPOLATE  RMO  TO  A TALUE  OF  Z'"RO  USING  THE  OUTPUT  OF  THE  FOUR 
230  C ORETIOUSLT  COMPUTED  STEPS 

00  63  K = 1,  200 
X = X ♦ 0.0005 

CALL  LGRNGNOMOi  1)  ,3MO<2)  ,3M0<3)  ,3M0(4)  , 

13XTH  ,OX(  2»  ,9X(3)  ,8X(  4)  ,X,RMO) 

235  IFTRMO.LE.0.0)  GO  TO  64 

63  CONTINUE 
C 

C DE  IS  THE  CALCULATED  TALUE  FROM  THE  LAST  INTEGRATION  STEP  TO  THE 

c stagnation  point 

240  64  OE  = X - XO 

c • 

C EXTRAPOLATE  TSO  FROM  THE  OUTPUT  OF  FOUR  PREVIOUSLY  COMPUTED  STEPS 
C ANO  THE  CALCULATED  VALUE  OF  X 

CALL  LGRNGN<3Y0<  11  ,9Y0<2»  ,8Y0(3)  ,3YfH4)  , 

245  IPX  <1)  ,9X<  2)  ,9X  ( 3)  ,8X(41  ,X,YSO) 

UOSAV  = UO 
ROSAT  = RO 
XSAV  = XO 
XSTG(l)  = -OE 

250  XSTAG  = XO 

YSTG(l)  = YO 
DXSTAG  = DEXIO. 

C 

C CALCULATE  TEN  COORDINATES  ALONG  THE  STAGNATION  STREAMLINE 
255  DO  ro  1=2,11 

XSTAG  = XSTAG*DXSTAG 

CALL  LGRNGN(9Y0<1)  , RYOT  2)  ,PYO(t)  ,ST0(4)  , 3X  ( II  , 3X  ( 2 ) , B X ( 3)  , 9X  ( 4)  , 
IXSTAG.TSTGTIII 

70  XSTG(I)  = XSTG<I-1)  »OXSTAG 

260  C 

C CALCULATE  FIFTY  POINTS  ALONG  THE  FIRST  3 PER  CENT  OF  THE  AIRFOIL 
C NOSE 

DO  76  J=1 ,2 
XAFTl)  = 0. 

265  YAFTl.J)  = 0. 

DO  75  1=2,50  , 

XAFTI)  = XAFTI-1)  +.0006 

call  ARFL<XAF(I),A0UM,YAFTI,J),9DUM,r0UM,  J) 

IFTJ.E0.21  YAF(I,2)  = -YAF(I,7) 

270  75  CONTINUE 

76  CONTINUE 
C 

C SAVE  OUTPUT  FLOW  PARAMETERS  DP  THIS  SUBROUTINE 
DO  eo  J = 1 ,2 

275  DO  78  1 = 1. NN 

YHI  ,J)  = Y(J,  I) 

UI(I,J)  = UTJ,II 
78  VI(I,J)  = V(J,I) 

NNINIT  = NNO 


108 


zso 


TIINNO.JI  = TO 
UKNNO.JI  = UO 
TUNNO.JI  = TO 
YO  = -TO 
SO  VO  = -TO 
C 

RETURN 

ENO 
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SUBROUTINE  lOSTGNfi 


C 

C THIS  SUBROUTINE  PRINTS  THE  INPUT  PARANETER5  ANO  THE  OAlOUlAIEO 
C OUTPUT  FOR  SUBROUTINE  STA&NA 
5 C 

COHHONTECOM/OUM(  26)  ,XSTAS(HI  ,T3TAG(11)  ,XARFL(5Q)  ,YARFL(50,2) 
COMHONXAINPUTT  A I N ( 2 4 ) , NM ( 7 ) ,H(6) 

OIHINSION  ISTAR(5> ,ITITLE(?) 

DATA  ( I ST  AR<  I)  ,1  = 1,5)  /5*10H*»  ••*•»•»•/ 

10  DATA  (ITITLE(I) ,I=1,2)/10MSTAGNATION, lOH  SOLUTION*/ 

HRITE(6,200)  (ISTAR(I),I=1,5),(ITIUE(I),I=1,2),(ISTAR(I),I=1,5) 
WRIT£(6,21Q)  AIN(2) 

WRITE(b,  220)  A IN(  20)  , AIN(  21) 

CALL  STAGNA 
15  WRITE(6,410) 

DO  10  1=1,25 

10  HRITE(6,4  0 0)  XARFL(I)  , T ARFl  ( I , 1 ) , Y A R(=  l ( 1 , 2)  , X A R'L  ( I * 2 5 ) , 

1 YARFL ( I *25, 1) , YARF, ( I +25 , ?) 

HRITE(  6,4  30) 

20  00201=1,5 

20  NRITE(o,  4 20)  X S T AG  ( I ) , Y ST  A G ( I ) , XS  T A G ( I *6)  , T S I A j ( I + 6 ) 

WRITE(5,42Q)  XSTAG(6)  ,rSTAj<5) 

HRnE<6,3TQ)  AIN(22)  ,DUM(4) 

RETURN 

25  200  fqrpaK 1H1,4(/) 7X, 12A10) 

210  F0RHAT(//2aX,4HXS  =,F10.o) 

220  F0RHAT(/2 OX, T4HFROH  THE  UPSTREAM  SOLUTION,  3E  =,F10,6, 

1 9H.  YSO  = , FIO.C) 

373  fqrmAK/  4tX,4HYS  =,F10.6, 10X,SH0700(F)  =,Fio.6) 

30  40  J FORHAK  1 3X,  2(  1 OX,  3F12.6)  ) 

410  F0RHAT(///57X,19hAIRF0IL  COORCINATES//13X,2(19X,1HX,7X,8HY(UPPl<) , 
1 4X,8HY(LCHER) ) ) 

420  FORHATT  25X  , 2 ( 1 0 X , 2F  1 2 . 6)  ) 

430  F0RHAT(///5oX,riHSTAG NATION  STREAHlINE//21X,2(21X,1HX,11X,1HY)) 

35  END 
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noon 


SUBROUTINE  STAGNA 


THIS  SUBROUTINE  CALCULATES  THE  STAGNATION  STREANLINE  GEOHETRY  ANO 
CERTAIN  AIRFOIL  COORDINATES 


10 


15 


20 


25 


CONNON  C «CK  ,RS  ,FN  .ALPHA 

CONHON/BCON/  XO  .OVOO  ,L 

CONPONXECOM/UO  ,RO  ,X  ,D»OOF  , XIN ( 1 1)  , Y IN < 1 1» 

1 .XOU(ll)  .TOUdll.XAFISO)  ,YAF(5I1,2> 

CONHON/AINPUT/  OTOOI  »XS  .DUHdTI.DE  ,TS0 

1 ,TS  ,00UH(2i  ,NDUN(7)  ,H0UH(G) 

C 

C COHPUTE  OVOOF  FOR  SELECTED  STAGNATION  POINT 
CALL  ARFUXS  , AOUH,  YS.OYS , DOTS , 2) 

RA  =1./  A3S(D0TS/«1.*DYS»»2»*»1.5) 

OYOCF  = (2./0E*2./IDE*RA|-l./Rft)»U0/ 

1 IRS/RO*<X/(X*DE)l**L»<l.*DE/PA)t 
C 

C ADJUST  COOROINATES  FOR  AIRFOIL  NOSE  ANO  STAGNATION  STREAMLINE 
C GEOMETRY  TO  ONE  CARTESIAN  FRAME 
00  20  1=1.11 
XOUm  = XIN(I)»XS 
20  YOUTH  = YIN( I) -YS-YSO 
RETURN 
ENO 
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10 


15 


20 


25 


30 


35 


C 

C 

c 

c 


,112 


LOHE^  S, 


SUBROUTINE  lOLWRCT 

THIS  SUBROUTINE  PRINTS  THE  INPUT  PARflH^^TEPS  AND  TH,"  CALCULATED 
OUTPUT  POR  SUBROUTINE  LHRCRIT 

COHHON/AINPUT/  AIN*?*,)  ,NN1(T)  ,MT(6) 

C0MH0N/tUVSAV/NNO,NN?,NN3 ,TUVI1B5) 

COHHON/OUTCON/ 

1 AX3(1d01  , ARMPdbOJ  ,DU«(150)  ,II 

QIHFNSION  ISTAR(5)  .ITITLEd) 

QATA  ( I ST  ARC  1 1 , 1 = 1 1 5) /5 • I 0H*» * • • • • • *• / 

DATA  (ITITLE(I)  »I  = 1,‘»>  TIOP'T'^ST  OE  '' R,  1 0 HI  T I C A L I T T ,10H 
^WRITECe^^OOl  »ISTAR(I),I-1.5'.<ITITLr(I),I=l,?)  , ( I ^ T A R (I)  , I = 1 , 5 ) , 

1 CITITLE(I) ,I=3,A> 

W“ITEI6,2?01  NN0,AIN(2!:) 

HRITE(5,2I0I  AIN(22)  ,AIN(?1) 

CAUL  LWRhRIT 
IP(IT.E0.  0)  R'^TIJON 
IHALE  : IIT2 
J = HOO(II,?> 

IHALPl  = IHALE 

IECJ.EO.il  IHALPI  = lHALP+1 

HRITEC6,4aO> 

IECII.EO.  1)  GO  TO  45 

4 0 2rITE(L  3 0 0i'*axB(I),ARHBCI)  ,AXBCI*IHALF1)  .AriHRddHALPl) 

lECJ.NE. 1)  GO  fO  45 

45  HRITP(6,3  30)  AX  3 ( IHAL  ^1 » i AohO  ( IH  ALE  1* 

4S  RETURN 

200  P0PHAT(1H1,4(/) ,7X,1RA10/57X,?A10/) 

2;jQ  coRvor  ( 72  OX  , 34HPROH  TH"  UPSTREAM  SOLU'^ION. 

^ 1 E10.51 

2 3 0 EORPAT ( 7 2 OX , 3EHEROH  T»E  STASNATIhn  SOLUTION, 

1 5H,'  TSO  =,E10.6) 

300  EOR>'AT(30'<,2(10X,2E10.4I) 

4 0 0 POPHAT  C 77  ?9X ,7(lOX,2HX0,5X,?HHQn 

' NO 


NN 


=,I2, 8H, 
10. 


OE  =, 


YS  = 
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c 

c 

c 

c 
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SUWOUTIME  LM^CRTT 

THIS  SUBROUTINE  CALCULATPS  NACH  NUMBER  FOR  A SELECTED  NUMBER  OF 
POINTS  ON  THE  LONER  SURFACE 

COMMON  C ,CK 

COMMON/ACOMFX  ,XA  .VN  ,VS  *H  , Ot 

4 -n  .PO  oRO  fUn  »V0  »DUO 

2 ’Y«2flO»,P<2.10).R«2.10)*U(2,10>  .V(2,10)  ,RM(2,10I,OU(2,10» 

COMMON/ AINPUT/  0»00I  *XAS  ,DUM(ir),0,  »YSO 

1 ,tS  ,00UH2)»NNl(n  ,HH6) 

COMMON/YUVSAY/  NN0,NNSPR,NN0HN 
1 ,TH10,2)  t UK  10,  2)  ,VK10,’)  ,YUV(96) 

COMMON/OUTCOM/ 

1 AXBU60>  ,ARMg(l60>  ,AOUHI160)  ,11 
OIAO,  Al,  A2,  2T  = AO  * A1*Z  ♦ A2»Z*Z 

INITIALIZE  INPUT 
CTO  = OUM(«») 

00  10  N=2,NN0 

T!2,N)  = TKN,21*TS0*TS 

U(2,NI  = UKN,2> 

10  RIzInI  = (»C-U(2,N)*U  (2,N) -V<?,NI*V  (2,N»» /(C-1.H»»  2.  5 

CALCULATE  FACTORS  USES  IN  DETERMINING  »BUB 
Y1  = Y<2,NN0-H-YS-TS0-T1(NN0,21 
Y2  - Y<2,NN0-2)-YS-YS0-TI«NN0,2) 

CALL  A1SUBIY1,T2,UI2,NN0)  ,U(2,NN0-1)  ,U(2,NN0-2>  ,A1U) 

CALL  A2SUr«Tl  T2  U(2  NNOJ  U(2,NNO-l),Ut2,NNO-2),A2U. 
cSu  AlSUBm:Y2:V«2;NN0),V<2,NN0^^ 

• CALL  A2SU8«T1,Y2,V<2,NN0)  ,VI2,NN0-1)  ,V(2,NN0-2)  ,42V) 

BO  = UI2,NNO)*R(2,NNO) 
fll  = U«2,NN0-H*R(2,NN0-1) 

32  * U(2,NNO-2»*R«2,NNO-2) 

CALL  A1SUB«T1,Y2,'>0,31,B2,A1C) 

CALL  A2SU9(T1,Y2,B0,81,B2,A2C) 

CALL  ARFL  IXAS,  XBS,  YS,  OY'^S,  00Y9S,2) 

03S  = <0E  » XBS»»SQRT(1.  ♦ OY  oS”  2» /DT  BS 
YDS  = »0E  ♦ XBSI/OTBS  - TSO  - YI(NN0,2) 

Uq'=  OtUC2,NNO),AlU,42U,YDS) 

VO  = 0(V< 2,NN0» , AIV, A2V»Y0S) 

VSQ  = UO’UO  *VO»VO 

IP((C-»SQI.LE.OT  RETURN 

RO  = ( (C-VSO)  MC-l.l  ) »»2.5 

VS  = <U0  ♦VO»OYBS»/SQRT(  1.  *DYBS»»2) 

CLA=  DBS  »R0»VS/2. 

CLP  = BO’TDS  *•  AlC»Y0S»»2/2.  + A 2C» Y0S*»3 /3  . 

OX  = .003 
1,0  XA  = 0« 

II  = 0 

00  80  1 = 1,20 

OETERMINE  RBUB  FOR  THIS  XA 
XA  = XA»OX 

call  ARFL  <X4,  XB,  T9,  DY  B , DOY'’,?) 

YO  = (OE  ♦ XB)/0YB  * YB 
YO  = YO-YSO-YS-YHNNO,2) 

let  Y2  = Y{2,NN0-A) 

J = 3 

Y1  = Y(2,NN0-J)-YS-YS0-YI(NN0,2) 

Y2  = Y(2,NNO-J-1)-YS-YSO-YI(NNO,2) 

CALL  A1SUB(Y1,YZ,U(2,NN0)  ,U(2,NNO-J)  , U ( 2,  NNO- J- 1) 
call  A2SUS<Yl,Y2,U(?,NN0)  ,U(2,NN0-J)  ’ ‘ ! 

call  A1SU0(Y1,Y2,VC2,NN0)  » V < 2 , NNO- J)  , V ( 2,  NNO- J- 1)  , A IV  ) 

CALL  A2SUB(Y1,Y2,V(2,NN0) ,Vt2,NNO-J) ,V12,NN0-J-1) ,A2V> 


113 


TO 


T5 


ao 


85 


50 


95 


100 


105 


110 


115 


C 

c 

c 

c 


c 


c 

c 

c 


91  * UI2,NN0-J1*9(2*NN0-JI 

92  * U<2,NN0-4-l»  •5<2fNN0-J-l» 

C»Lt  AlSU9Ctl,T2,90,91,92,AlCl 
C»Lt  A2SU9«YliT2,eO|01i52i *20 

54  UO  * OfUC2|NNO» t*lU**2U»T0» 

VO  * OlVC 2,NN01 t»lV*»2V,Y0) 

«0  * MC-U0*U0-V0*»0» /(C-1.) •••2.5 
CT  = l./SORT«l.  ♦ 0Y9**2) 

ST  = OT0*CT 

09  * «0E  • X91TST 

VS  = UO»CT  ♦ VO*ST 

CL  = B0*Y9  ♦ AlC»Y0*»2/2.  ♦ A?C»Y0»»T/3.  * CLA 

R9U0  = 6.»CL/0B-VS»R0-4.»  V'^'RO’CYO 


CLB 


IPTRSUB.LT.O.Ot  GO  TO  90 


UBS  =0.1 

RBUBP  = R9U9*»0.4»(C-1.> 

USING  NEWTON  RAPHSONG  METHOD  ITERATE  ON  UP  UNTIL  RUP 
U9  = 0.1 

DO  EO  K=l,50 

RUP  = C*U9»»0. 4-U9*»2.4 

IF (A9S(RUP-RBUBP) .LT. .OOOOOH  GO  tq  tq 
ORUPOU  = Q.4*C/UB**0.6-2.4*U9»»1.4 

UP  = U9»(RBUBP-RUPI /ORUPOU 
IFIua.LT.O.I  U0S=U9S*.O5 
IFIUB.LT.O.I  UP=UPS 
IFCUBS.GT.l.l  GO  TO  90 
60  CONTINUE 

IF  < I . GT  . 4 . 0R.0X.lt  . 0 . 00  04)  GO  TO  90 
OX  = .0001 
GO  TO  40 

70  R9  - <<t  - UB»»2)/<C  - 1. ))••?. 5 
PB  = RB»*1.4 

calculate  rmb  for  this  ub 

RMB  = UB/SQRTIl.A’CK’PR/PB) 


II  = II*1 
ARMOm)  = RMB 

Axeai)  = XB 


c 

90  continue 

c 

90  RETURN 
END 


RBUBP 
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55 


50 


55 
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C 

c 

c 

c 


SUMOUTINE  10LHRIN(TCRIT,LI 

THIS  SUBROUTINE  PRINTS  THE  INPUT  PARAHETERS  AND  THE  CALCULATED 
OUTPUT  FROH  SUBROUTINE  LMRINIT 


CONHON/AINPUT/  AIN(25I ,NNl(r>  ,HII6i 

CONHONTVUVSAV/  NNIN I T ,NNSPR, NNOMN , T U V (1561 

COiMONFOUTCON/ 

1 AXA(16Qi  tARHOCieO)  »AOUil60»  ,II  ,112 

COHNON/COHPRSTXXC160t2) tPP(160,2l •NP(2t 
COMHON/RBUBCn/RBUB  tUBINIT  .IRBUB 
DIHENSION  ISTAR(5t tlTITLEIA) 

DATA  IISTAR(I) ,I=1,5> /5» 1 0H»»*»»»»* •• / 

0»TA  <ITITLE«I) ,I=1,5)/10H»  AIRFOIL  .IOHSOLUTION  •,10H  LONER  S, 
1 IflHURFACE  / 

J=2 


NRITE(6,2a0t  ( ISTAR(II,I=1,5) ,(ITITLE( I) >1=1.2) ,IISTAR( I) ,I=1,5> , 
1 (ITITLEII) ,1=3.51 

WRITE  (6, 210)  NNK5)  ,AIN(5)  ,AINI6)  , AIN  ( 13)  , HI  ( 3)  , HI  ( 5) 

N = (1iO-AIN(13)  )/HI(5)»(AIN(13)-AIN(5))/HII3) 

NNIIT)  = 0 

IF(H.LT.570.0R.ICRIT.Ea.2.0R.NNINIT.GE.NNl(5))  GO  TO  5 
IF(ICRIT.NE.2I  NRITE(6,360) 

IF<M.GT.570)  HRITE(6,370) 

IF(NNINIT  .LT.NNK5) ) WRIT  E<  6, 38  0) 

RETURN 

5 CALL  LWRINIT(ICRIT) 

IFTIRBUB.EQ.  0)  NRITE«6,330)  RBUB.UBINIT 
IF (IRBUB. £Q. II  HRITE(6,350)  RBUB 
IFCIRBUB. EQ.2)  NRITE(6,350)  R8UB 
IFdI.EQ.O)  RETURN 
IHALF  = 1172 

K = M00TII,2I  « 

IHALFl  = IHALF 

IFIK.EQ.I)  IHALFI  = IHALF*1 

HRITE<6,500) 

IF(II.EQ.l)  GO  TO  15 
DO  10  1 = 1, IHALF 

10  HRITE(6,300I  AXA<I)  ,ARMO<I)  ,PP(I,  J)  ,ADU«I) , AXAII  + IHALFI)  , 

1 ARNO  (!♦  IHALFl)  , PP<  IHALFl , J)  , ADU(  I ♦ IH  AL Fl) 

IFTK.NE.1)  go  to  18 

15  WRITE! 6, 3001  A XA< IHALFl) , ARHO! IHALF 1) ,PP( IHALFI , J) ,ADU< IHALFl) 

18  1FCNNH7)  .EQ.O)  GO  TO  28 
call  INVEL0C(L,J) 

CALL  SUBCRT21J) 

NN17P1  = NNH7)+1 
II3  = 1I-NNK7) 

IF<II3.L£.0)  GO  TO  23 
IHALF  = II372 
IHIDL  = IHAlF«-NN1(7I 
K = M0D!II3,2) 

IHALFI  = IHALF 

IFIK.E3.1)  IHALFI  = IHAlF+1 

HRITE(6,500I 

IF(II3.EQ.l)  GO  TO  25 

DO  20  I=NN17?1 , IHIDL 

20  HRITE(6,300)  A XA  ( I ) , ARMOC  I)  , PP  ( I , J)  , A OU  (I ) , AX  A(  I +I H Al  F 1)  , 

1 ARHOd^IHALFl)  ,PP<  IHHALFl,  J)  , ADU  C I ♦ IHAL'"  1) 

IF(K.NE.l)  GO  TO  28 

2 5 WRITE  (6, 3 00)  AXAIIHIOL*!)  , ARMO  !IMIDL  + 1 ) ,PP  I IHIDL  ♦ 1 , J)  , ADU  ( IHIDL*  1) 

28  IFIII3.EQ.il  WRITE(6,260) 

RETURN 

200  F0RMAT(5«/ 

210  FORMAT! 

1 F8.5,  8H, 

260  FORHAT!/20X,39H' 


7X, 

12A10/57X, 2A1 

3) 

7/20X,5HNB  =, 

,12/720 

X, 

4HXA 

= ,F 

8.5,9H,  CYD 

cx 

=F8.5,  9H, 

HSO  =, 

F8 

.5, 

8H  , 

HO  =F8.4) 

39H 

IGRATIO 

N 

HAS 

NOT 

completed  ) 

(10 

X,5Fia.5ll 

AlO 

,lflX,5F10.5l 

FIO 

.4,10X,4A10) 

115 


70 


75 


330  FORHftTI/  i*7X,6HRBUB 
3<ia  FORNftTl/  39X,6HR9UB 


= ,F10.6»10X,«»HUB  »,F10.b) 

= ,F10.6,<*0H****»»FLOM  :ONDITIONS  CiNNOf  BE  MAT 


ICHED  I 

350  F0R«ATC//59X,6HRBU8  =,F10. 
360  FORMATU/20X,62H»»»»*»»»»* 


6) 

SUPERCRITICAL  FLOW 


IS 


NOT  PERMITTED  ON  L 


37  0 
330 
LOO 


lOHER  SURFACE  » 

FORMAT <7/ 20X,29H****»»»» 
FORMAT(//20X,**9H»**»*»** 
FORMAT(//10X|2«17X,2HX3, 


••STEP  SIZE  TOO  SMALL  ) 

••INSUFFICIENT  NJM9ER  OF  STRIPS  AVAILABLE) 
8X, 2HM9, 8X, 2HPB ,7 X , LMOUOX ) ) 


END 


C 
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C 

c 

c 

c 


c 

c 


c 

c 


c 

c 


SUBROUTINE  LHR1N1T|ICRIT> 


THIS  SUBROUTINE  CALCULATES  THE  INITIAL  CONDITIONS  USED  IN  THE 
LONER  SURFACE 


COHNON  C 

.CK 

.RS 

.FH 

.ALPHA 

COHHON/ACOH/X 

.XA 

.VN 

.VS 

.H 

,DY 

1 .YO  .PO 

,RO 

.UO 

.VO 

.RMO 

,0U0 

2 ,Y(2.10).P(2.10) 

.R(2.10l 

.U(2,1DI 

.V(2.10l 

,RH<2. 

10i,OU(2,10) 

CORMON/CCOH/X0 

.YB 

.OYB 

.OOYB 

.OU0 

,P9 

1 .UB  »R"B 

.09 

,HS 

.C»A 

COHHONFOCOH/CS 

.CZ 

.OWl 

.01 

,001 

,RK 

1 ,VOO  .ISKIR 

COMRON/AINRUT/ 

OVOOI 

.XAS 

,BOUH(  2) 

,XAI 

,CYO 

1 ,CDUn(6).CXI 

.aOUH(6» 

.OE 

,YSO 

,TS 

,EDUH(2) 

2 ,NN1(3)  , NNLNR 

.NN2(3) 

,H1(2» 

.HSO 

.H2(  3) 

CORHON/TUVSAT/  NNO, NNS»R, NNOMN 
1 ,TH10,2»,U1(10,2I  ,vmO,2),YUVC56» 

COHNON/COMNNFNN 

COHHON/R9UBCH/R8U0  »U9INIT  ,IR8U5 

COMHON/OUTCOH/AOUH(480I .II  .11? 

OIAO,  Al,  A2,  Z»  = AO  ♦ A1*Z  ♦ A2*Z»Z 

INITIALIZE  INPUT 
OCX  = . 004 
112=0 
II  = 0 
NNHZ)  = 0 

IFUXAI-CXI  ♦ 3.»OCX»  .GT.0.0)  RETURN 
NN  = NNLNR 
XA  = XAI 
• X = -OE 
HS  = HSO 

00  45  N = 1,  NNO 
T(2,N)  = TKN.2I4YS04YS 
UI2.N)  = UKN.2) 

V<2,N)  = VHN.2) 

YSO  = U<2,N)  *U(2,NI  »V  (2.N)  »V  » 2,  N) 

R(2,N»  = MC-VSQ)  X(C-1.)»»»2.5 
P<2,NI  = RI2,N>»»1.4 

45  RHI2.NI  = SQRT(VS0*R<2.Nt /tl.4»CK*P|2.N)> > 

CALCULATE  FACTORS  USED  IN  OETERHINING  RBUB 
Y1  = Y(2.NN0-1I-YS-YS0-YHNN0.2> 

Y2  = Y(2,NN0-2>-YS-YS0-YI(NND.2) 

CALL  AlSUBIYl,Y2.Ut2.NN0)  ,UI2.NN0-11  ,U(2,NNO-2)  .A1U» 
call  A2SUB(Y1,  Y2,U<2.  NNOI  .U<2.NN0-1)  ,Ut2.NN0-2>  .A2U) 
CALL  A1SUB<Y1,Y2.V(2.NN0»  ,VI2.NN0-1)  .VJ2.NN0-2)  .AIV) 
CALL  A2SUBIY1.Y2,V«2.NN01 , V C2 .NNO-1 ) , V 1 2. NNO-2)  .A2VI 
00  = U(2.NNO)»RI2,NNO) 

91  = U<2.NN0-1)»R<2. NNO-1) 

02  = U(2.NN0-2)»R<2, NNO-2) 

CALL  A1SU3(Y1, Y2,=O.01.02.A1C> 

CALL  A2SU0(Y1,Y2,BO.B1.92.A2C) 

CALL  AR^L  (XA0,  X0S.  YS . OYH5,  DnYBS.2) 

O0S  = <OE  ♦ XaS»»SORT(l.  ♦ 0Y9S»»2> /DY0S 
YDS  ■=  (DE  + XBSI /DY^S-YSO-YI  (NN0.2) 

UO  = 0(U(2,NN0) ,fllU,A?U,YOS) 

WO  = 0(WI2,NN0) .A1V.A2V.VOS) 

RO  ■=  ((C  - UO**2  - VO»*2)XIC  - l.))**2.5 
VS  = (UO  ♦VO'DYBS) ZSORH 1.  ♦nYBS»»?) 

CLA=:  D0S  •R0»VSX2. 

. CLP  = 0O»YDS  ♦ A1C*Y0S*»2X2.  ♦ A2C»YnS*»3/3 . 

CALL  ARFL  (XA,  X0,  Y0.  OYH,  0OY°.'’) 

YO  = (OE  ♦ X0) /OT°  ♦ Y0 
YO  = YO-YSO-YS-YI (NN0.2) 

FIND  A VALUE  FOR  Y2  SUCH  THAT  YO  I*:  L^SS  THAN  Y2 
J=D 


117 


ri 


r» 


so 


ss 


90 


95 


100 


105 


110 


115 


120 


125 


130 


135 


SO  J « J*1 

Y1  » TC2,NN0-JI-TS-TS0-TICNN0,2I 
Y2  * TI2,NNO-J-H-YS-YSO-THNNO,2I 
1MY0‘T2I  52,S8,S8 
C 

C CSLCUUTE  09U9 

52  IFlJ.Ea.ll  GO  TO  5S 

CSLl.  »lSU9IYl,Y2,U»2f  NNOI  ,0<  2 , NNO-J) , U ( 2,  NNO- J- U ,A1U) 
CALL  A2SU9IY1,T2,U(2,NN0J , U ( 2, NNO-J) , U 1 2, NNO- J- 1*  ,A2Ut 
CALL  A1SU9«T1|Y2,W«2,NN0)  , V 1 2 , NNO-J)  , V ( 2, NNO- J- U ,A1V) 
CALL  A2SUBIY1,Y2,Y(2,NN0) , V t 2 , NNO-J) , V ( 2, NNO- J- 1) ,A2V) 

B1  * Ul 2,NNO-J)»R«2,NNO-J) 

82  = U« 2f NNO-J-1) »R(2 ,NN0-J-1) 

CALL  A1SUB«Y1,Y2,P0,B1,B2,A1C) 

CALL  A2SU9TY1,Y2,B0,B1,R2,A2C) 

C 

C CALCULATE  RBUB 

5S  UO  = 0(U( 2,NN0I ,A1U,A2U,Y0) 

¥0  = 0CV(2,NN0) ,AlW,A2V,Yn) 

RO  = MC  - U0**2  - V0*»2)/tC  - l.))»»2.5 
CT  = l.FSQRrd.  ♦ 0YB»»2I 
ST  = OYB»CT 

RAB  X ABS<1./<CT»*S*00YB)  ) 

00  = TOE  ♦ X8)/ST 
¥S  = UO*CT  ♦ YO*ST 
VN  =-UO*ST  A VO*CT 

CALL  ARFLIXA*HS»CT,X9T,  YBT,  OTBT,  nOYBT,2) 

OPT  X OB  A <1.  A OB/(RABaOB) )*¥N/VS»HB 
H X XBT  - OBT’OYBT/SQRTTl  . A 9YBTA*2)  - X 
CL  X 90»Y0  A AlC»YD»A2/2.  A A2C»Y0»»3/3.  A CLA  - CLB 
RBUB  X 6.»CL/0B  - ¥S»RO  - 4 .• VS*RO» CYO 
C 

IRBUBxO 

IFTRBUB)  55,55,58 
55  IRBUB  X 1 
RETURN 

58  UBS  X 0.1 

RBUBR  X R9UB»»0.<.»tC-l.l 
C 

C USING  NEHTON  RAPHSONG  HETHOO  ITERATE  ON  U«  UNTIL  RUP  x RBUBP 
U0  X 0.1 
00  60  Xxl,50 
RUP  X C*UB**0.  <t-UBAA2.4 
IFIABSTRUP-RBUBP) .LT. .000001)  GO  TO  70 
ORUPOU  X 0.4ACFUB»*0.6-2.4*UB*»1.4 
UB  X UB  A (RBUBP-RUP) /ORU»OU 
IF(UB.LT.O)  UBS  x UBS  + .05 
IFTUB.LT. Q.l  UB  x UBS 
IFTUBS.GT.l.l  RETURN 
60  CONTINUE 
C 

IRBUP  X 2 
65  RETURN 
C 

70  RB  X ((C-UB*UB)X(C-1.))A*2.5 
UBINIT  X UP 
PB  X RB*»1.4 
C 

C CALCULATE  RMP  FOR  THIS  UB 

RMB  = UB/SQRT(1.4»CK*“B/RB) 

IF  (YO/Y ( 2,NN) .GE. 0. 3)  NN  x NN  - 1 
PO  X RQAA1.4 
C 

RHO  X SORT((UO»A2  ♦ Vn**2)/(1.4»CK»P07RO)  ) 

C 

call  SUBCPTKE) 

RETURN 

END 
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C 

C THIS  SUBITOUTINE  CALCULtTES  SUSCRITICAL  FLM  FOR  THE  INITIAL  FORTION 
C OF  THE  AIRFOIL  SURFACE 
C 


CONNON  C 

,C< 

♦RS 

,FM 

, ALPHA 

CONNON/ACOH/X 

,XA 

,WN 

,vs 

.H 

,OT 

1 ,TO  ,PO 

,RO 

,UO 

,vo 

,RNO 

,0U0 

2 ,TI2,10» ,P«2,10) 

,R(2,10I 

,U(2,10) 

,V(2,10> 

,RH(2,10) 

,0U(2 

COHHON/CCOH/xa 

,T9 

,OYB 

,oota 

,OUB 

,PB 

1 ,UB  tRNB 

,OB 

,HS 

,CRA 

CONNON/ OC ON/C S 
1 ,»00  ,ISKIP 

,cz 

,DV1 

,01 

,001 

,RK 

CONNON/AIMPUT/ 

OUHC12) 

,CXI 

,«UHC11) 

,NNiiri  , 

HH6) 

CONHON/OUTCONF 

1 Xa0(160)  •RHB0<160I ,OUB0tl60> *11  *11? 

CONNON/COHNN/NN 

COHHON/COHPi»S/XX«160,  2»  ,FP(160,2)  ,MPC?) 

OIHENSION  BX<<tl  ,au(i>,10)  ,eVC4,in)  ,BY(4,10> 
c 

C INITIALIZE  INPUT 
OCX  = 0.004 
CX  = CXI  -S.»OCX 
CRA  = 1.0 
112=0 
1 = 0 

N1  = NN  - 1 
100  00  106  K=l,39 
C 

C PERFORH  FLOW  INTEGRATION  STEP 
CALL  OUNSUtJi 
00  104  N = 3,  N1 
104  CALL  INAS(1,J,N,1> 
call  INB0(NN*J) 

C 

II  = II»1 
XBOtll)  = X9 
RHBO(II)  = RN3 
XX(II,JI  = X5 
PP<II,JI  = P9 
DUPO(II)  = 0U9 
C 

IF  <RHO  .GE.  1.0  .OR.  0U9  .LE.  0.0)  RETURN 
C 

IP  (XB  .GE.  CX  ) GO  TO  120 
C 

106  CONTINUE 
C 

RETURN 

C 

C SAXE  flow  RRORERTIES  AT  THIS  STATION 
120  I=IT1 

BXTI)  = X 
00  124  N = 2,  NN 
BU(I,N)  = UTJ,N» 

BVTIjN)  = VU,N) 

124  BT<I,N)  = TTJ,N) 

C 

IF  (I  - 4)  126,  200,  200 
126  CX  = CX  » OCX 
GO  TO  100 
C 

C CALCULATE  FLOW  PROPERTIfs  AT  XR  AS  IN»UT  TO  NEXT  STEP 
200  UO  = UR/SORH l.*0Y9»0YB) 

VO  = UO'OYB 
VSO  = UB'UB 

RO  = ( IC-VSQ)  FCC-1.))»»2.S 
PO  = RO»»1.4 

RMO  = SORT(VSO*RO/Cl. 4*CK»P0) ) 
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DO  221  N = 2t  NN 

CALL  LGRNGN(aYtl«N),BT(2,NI,3V(3>N) ,BY(4|NI 
lBX(l),BX(?)fBX(3) iBX(4) ,XS,TIJ,Nn 
CALL  LGRNGNISU<1,N)  , BU  ( 2 , N)  , dU  (3, N)  , BU  ( 4,  N) 
IBX(l)  ,BX(2)  |BX(3i  f BX(4)  ,XB,U(J(N») 

220  CALL  LGRNGN(BVI1,N)  ,BV(2|N)  ,BV(3,NI  ,0V(4,N) 
IBX(l)  ,BX(  21  «BX(  31  «BX(4I  ,XB,V(  J,N)  I 

II  = IIH 
XXIII, Jl  = xs 
PPI1I,J»  = PB 
XBOIII)  = XB 
RHBOlin  = RIB 
OUBOIII)  = DUB 
NNliri  = II 

RETURN 

END 
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SUBROUTINE  SUBCRT2<JI 
C 

C THIS  SUBROUTINE  CALCUL4TES  SU9CRITICAL  FLOW  FOR  THE  HULK  OF  THE 
C INTEGRATION  PROCESS 
C 


COMMON  C 

,CK  ,RS 

,FM 

, ALPHA 

C0MM0N7AC0M/X 

>XA  >VN 

,vs 

,H 

>0Y 

1 >TO  ,PO 

,R0  ,U0 

,*0 

,RMO 

>ouo 

2 ,Y(2.10)  ,P(2|10) 

>R(2,10I >U(2,10) 

>v(2,iai 

>RM(2> 

10)>OU(2 

COMMON/ OCOM/CS 
1 ,*00  flSKl* 

,CZ  ,0V1 

>01 

>001 

>RK 

COMMON/AINPUT/ 

COMMON/OUTCOM/ 

0UM(24I,NN1I7) 

>H1(3) 

>H0 

>H2(2) 

1 AXA(16Qi  ,ARMO(160) ,AOU(1601  >II 

>112 

CONMON/COHPRS/XXU60,2J  ,PP«160,2>  ,NPC?) 

COmON/YUVSAV/  NNINIT,  NNS?R,NN9HN 

1 •rUVCSOi  fTU(lQ)  •UU(10),VU<10I,TL(10)  >01(101  •VL(IO) 

2 tTOU>TOLfUOU>UOL>VOUtVOL 
COHBON/COBNNFNN 

OIAO>  Al,  A2>  Z)  AO  * A1»Z  ♦ A2»Z»Z 
C 

C INITIALIZE  INPUT 
NTERH  = 3 
CX  = 0.5 
ISKIP  = 2 
CS  = 1.0 
CZ  s C 
H = HO 

CALL  ARFL  IXA,  X,  YQ,  0Y,0DY,2) 

N=NN 

YSO  ■=  U(  J.NNI*U<J.NNT*YIJ,NN)*VtJ>NN) 

R(J,NNI  = MC-VSQ)  F(C-1.)  )**2.5 
PIJ.NN)  s RCJ,NN)»*1.4 

RM(J,NNI  = SORT(VSQ»R<J,NN)F(1.4*CK*Pt J,NN) >) 

C 

250  H = A8S(( l.-X) /H) 

00  268  K = l>  M 
00  266  KK=1,NTERH 
C 

C PERFORM  FLOW  INTEGRATION  STE» 
call  0UNS(1,J» 

X = X»H 
00  265  N=3,NN 

265  call  INAS(1,J,N,NN» 

C 

IF (X.GE.CX.OR. X.LT.O. O.OR.RMO.LE.O. 1. OR .RHO . Gt . 1 . 0 . OR . 

1 ABS(A0U(II)) .GT.2.0)  GO  TO  267 
C 

266  CONTINUE 
C 

267  II  = II»1 
AXAdll  = XA 
ARMO(II)  = RMO 
AOUdU  = OU(J>NN) 

XXdI,J»  = X 
PPdI.JJ  = PO 

c 

IF  (X  .GE.  CX  I GO  TO  270 
C 

IF  (X  .LT.  0.  .OP.  RMO  .LE.  0 . 4.0R. RMO . GE . 1 . 0>  RETURN 
C 

■ IF  (A5S(  ADUdI)  ) .GT.2.  0)  NN  = NN-1 

268  CONTINUE 
270  CONTINUE 

IF(CX.GT. 0.995)  GO  TO  380 
C 

C ADO  another  strip  TO  THE  INTEGRATION 
Y^  = Y(J,NN-1T-T(J,NN1 
Y2  = Y(J,NN-2I-Y(J,NN) 


121 


M 


75 


•a 


85 


90 


95 


100 


105 


CALL  AlSUB<ri,Y2,U«Jf  NN)  »UIJ,NN-1>  »UC  J,NN-2I  , AlU) 

CALL  A2SU9(ri,VZ,U(J,NNt,UU,NN-l),U(J,NN-Z)  ,A?UI 
CALL  AlSU9ITl,t2,»(J,NN) ,VIJ,NN-1», V< J,NN-2> ,A1V) 

CALL  A2SU9«T1,Y2,V(J,NNI  , V ( J,  NN-1)  , V<  J , NN -2)  , A2  Y) 

NN  = NNH 

Y(J,NN)  * Y(J,NN-lJ/2. 

U<J,NN»  = 0(U(  J.NN-U  ,AlUf  A2U,Y<  J,NN) -Y(J,NN-1)  » 

V(J,NN)  = 0(»«  J,NN-1I  ,AIV,A2W,Y1J,NN)-Y(J,NN-1)  t 
VSQ  = UU,NNI»U«J,NN»*VU,NN)*V«J,NN» 

R«J,NN)  * UC-VSQ) /<C-l.n»*2.5 
PIJfNNI  = R«J,NN)»»l.i. 

RHUjNNI  = SaRT(VSQ*R<J,NNIY(l.l.»CK»P(J,NN»  n 
CX  = 1.0 
GO  TO  250 
C 

C SAVE  FINAL  FLOW  PROPERTIES  OF  THIS  SUBROUTINE  AS  INPUT  TO  NEXT  STEP 
38  0 112=1 

NPTJ)  = II 

IF(J.EQ.2)  GO  TO  HO 
00  1.00  N=1,NN 
YU(N)  = T(J,N) 

UUCN)  = UU,N> 

NOO  VUTNI  = V(J,Nt 
YOU  = TO 
UOU  = UO 
VOU  = TO 
RETURN 

410  00  420  N=1,NN 
YLTN)  = YtJ.N) 

ULTNl  = U(J,N1 
420  WL(N)  = T(J,N» 

• YOL  = YO 
UOL  = UO 
VOL  = TO 
RETURN 
ENO 
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C 

C THIS  SUBROUTINE  PRINTS  THE.  INPUT  PIMHETERS  ANO  THE  CALCULATED 
C OUPUT  POR  SUBROUTINE  UPRCRIT 
C 

COHNON/A INPUT/  AINI2A)  ,NN1I7»  ,HIf6> 

CONHON/rUVSA*/  NNINIT,NNSPR,NNOMN,YUV 11561 


COHNOM/OUTCON/ 

1 AXB(160)  ,ARnB(l&OI  ,OUH(160)  ,II  ,112 

OINENSION  ISTAR(5) .ITITLEIM 
DATA  (ISTARdI  ,1x1,5) /5*10H*****»****/ 


DATA  lITlTLEm  ,Ixl,M/10HTEST  OF  C R,  1 OHITICALITY* , lOH  UPPER  S, 
1 lOHURFACE  / 

HRITEI6,2  00I  ( ISTARdJ,  1=1,5)  ,CITITLE(  I)  ,1  = 1,2)  , dSTAR  d)  , I = 1, 5)  , 
1 (ITlTLEd)  ,1  = 3,1.) 

HRITE<6,220)  NNINIT,AIN(20) 

MRITEI6,230t  AIN<22)  ,AIN(21) 

CALL  UPRCRIT 
IFCII.EO.O)  RETURN 
IHALF  * II/2 
J = H00(II,2) 

IHALFl  = IHALF 
IFCJ.EQ.l)  IHALF1=1HALF»1 
MRITE(6,H0t)) 

IFdI.EQ.l)  GO  TO  25 
00  20  1 = 1, IHALF 

20  HR1TE«6,300)  A X9 d ) , ARHBd  ) , AXB d ♦! HAL  F 1)  , SRHB(  I d HAL  F 1 ) 
IF(J.NE.l)  GO  TO  28 

25  MRITE(6,300)  AXB<  IHALFl)  , ARMBdHALFl) 

28  RETURN 

200  FORMAT!  1H1,1»(/)  , 7X , 12A10/57X, 2A1 0/) 

220  FORMAT(/20X,  31.HFROM  THE  UPSTREAM  SOLUTION,  NN  =,I2,8H,  DE  =, 

• 1 F10.6I 

230  FORMAT(/20X,36HFROH  THE  STAGNATION  SOLUTION,-  TS  =,F10.6, 

1 9H,  YSO  = ,F10.6> 

300  FORMAT(30X,2(10X, 2F10.lt)) 

1.00  F0RMAT(//29X,2<18X,2HXB,8X,2HMB)) 

END 
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C 

C THIS  SUBROUTINE  C»LCULATES  H«CH  NUNBER  e-OR  A SELECTED  NUMBER  OF 
C POINTS  ON  THE  initial  PORTION  OF, THE  UP»ER  SURFACE 
C 


common  c 

,CK 

,R5 

,FM 

, ALPHA 

COMMON/ACOM/X 

,XA 

,WN 

,vs 

,DY 

1 ,YO  ,P0 

,RO 

,uo 

,VO 

,RMO 

, DUO 

2 ,T«2t  10>  ,»<2,10»  ,R(2,10)  ,U<2, 10>  ,»l  2,10)  ,RM(  2, 101  ,OU(2,10) 

COHMONrTUVSA*/  NNO, NNSPR, NNONN 
1 ,TH10,2»  ,UI(10,2)  ,VI(10,2)  , YU¥(96) 

COMMON/AINPUT/OUMllRI  ,OE  ,tso  ,TS  ,ODUM(  2)  ,NOUM<  7) 

1 ,H0UM«6) 

C0MMON7OUTCOM7 

1 AXB<160I  ,ARMSa60)  ,AnUM(160)  ,II  ,112 

OTAC,  Al,  A2,  Z»  = AO  ♦ A1*Z  » A2»Z»7 
C 

C INITIALIZE  INPUT 
NO  = NNO  - 2 
00  50  N = NO,  NNO 
T(1,NI  =THN,1) -TEO-TS 
U<1,N)  = UUN,1I 
V(1,N)  = VUN.l) 

50  R(1,N»  = ((C-U(l,Nl»UU,N)-V(l,N)«Vtl,N))/«C-l.))»»2.5 
C 

Y1  = Y«1,NN0-1)YYC*YS0-YHNN0,1) 

Y2  = Y11,NNO-2)»YS*YSO-YI(NNO,1) 

CALL  A1SU9(Y1,Y2,U(1,NN0)  ,U(l,NNO-l)  , U ( 1,  NNO- 2)  , A lU) 

CALL  A2SU9(Y1,Y2,U(1,NN0>  ,Ut  l,NNO-l)  ,U(  1,  NNO-2)  , A2U) 

CALL  A1SU9<Y1, Y2, V(l,NNO)  ,Wtl,NNO-l) , V 1 1, NNO-2)  , A IV) 

CALL  A2SU9<Y1,Y2,WU,NN0)  ,VU,NNO-l)  , V ( 1 , NNO- 2)  , A 2V  ) 

90  = U(l,NNO»»RU,NNO) 

• 91  = U(l,NNO-l)»Rll,NNO-l) 

02  = U<1,NN0-2)»RU, NNO-2) 

CALL  A1SU91Y1,Y2,0O,91,92,A1C) 

CALL  A2SU9(Y1,  Y2, 90, 91,92,  A2C» 

C 

OX  = .003 
C 

56  XA  = 0. 

II  = 0 

C 

00  100  1 = 1,20 
XA  = XA»OX 
C 

C DETERMINE  R'’U9  RQR  THIS  XA 

CALL  ARFL  (XA,  X9,  Y9,  OY 9 , 00X9,1) 

YO  = (OF  » X9)/DY0  ♦ Y9 
YD  = Y0*YS0*YS-YI(NN0,1) 

UO  = 0(U(1,NN0) ,A1U,A2U,Y0) 

VO  = 0(V(  1,NN0)  ,A1V,A2V,Y0) 

VSO  = UO*UO*VO»YO 
IF ( (C-VSQ) .GT. 0.)  GO  TO  57 
IF(I.GT,3.0R.nx,LT.0.0006)  RETURN 
DX  = .0005 
GR  TO  56 

57  RO  = ( (C-VSO) /(C-1 .)  ) »’2. 5 
CT  = l.XSQRTd.  ♦ 0T9**2) 

ST  = 0Y9»0T 

0"  = (OF  ♦ X9)/ST 
VS  = UO'CT  ♦ VO'RT 

CL  = 0O»YO  ♦ A1C»Y0*’272.  + A2C»YO»*7/3. 

RBUB  = 2.»CLXOP-VS»RO 
C 

IR0U9  = 0 

IF(R9U9.LT.0.)  go  to  100 
55  U9R  = 0.1 

payPP  = R9U9»»0.4»(C-1.) 
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C USING  NEHT0N-R8PHS0NG  HFTHOO,  ITERATE  ON  UB  UNTIL  RBUBP  * RUP 
UB>0.1 

DO  60  Kxli5B 

RUP  « C*U9*»0.‘»-UB»*2.<» 

IF<ABS<RUP-RBUBP> .LT.. 0000011  GO  TO  70 
ORUPOU  * 0.4*C7UB*»0.6-2.*»*U9»*1.<» 

UB  X ua*(RBUBP~RUPt70RUP0U 
IF1UB.lt. 0.1  UBS=UaS*.05 
IFIUB.lt. 0.1  UB*UPS 
IF1U8S.GT.1.)  GO  TO  100 
60  CONTINUE 
C 

IFII.GT. 3. OR.OX.lt. 0.00 06)  RETURN 
OX  > .0005 
GO  TO  56 

70  RB  = C(C-UB»»2)/<C-l.n**2.5 
PB  = R9»»1.4 
C 

C CALCULATE  RMB  FOR  THIS  UB 

RMB  = UB/SQRT(1.<.»CK*P8/RB) 

C 

II  = II»1 
APNfl(II)  = RNB 
AXB(II)  = X3 
C 

100  CONTINUE 
C 

RETURN 

END 
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SUBROUTINE  lOUPRINilCRin 

C 

C THIS  SUBROUTINE  PRINTS  THE  INPUT  P»R»NETERS  «NU  THE  CALCULATED 
C OUTPUT  FOR  SUBROUTINE  UPRINIT 
C 

CONHON/AINPUT/  A IN  1 2A»  ,NN1  ( 7 1 ,HI(6) 

COHHON/TUVSAt/  NNINIT ,NNSPR, NN3HN , YU V (156 ) 

COHHON/OUTCOH/ 

1 XBO(160)  ,RHB0(16Qt ,DUBO(160) ,II  ,112 

COHMON/COHPRS/XX(160,2»  ,»P(160,2>  ,NPI2) 

COHHON/RBUBCN/RBUB  .UBINIT  ,IRBUB 

DIMENSION  ISTAR(5) ,ITITLE(4I 

DATA  (ISTAR(I) , I = 1 , 5» /5» 1 0H***»«*»» / 

DATA  (ITITLEd) ,I=1,4»/10H»  INITIAL  .IOHSOlUTION  •,10H  UPPER  S, 
1 lOHURFACE  f 
J=1 

HRITE(6,200)  (ISTAR(I),I  = 1,5),(ITITLE(I>,I=1,2),(ISTAR(I),I  = 1,5I, 
1 (ITITLE(I),  1 = 3,4) 

WRITE  (6, 210)  NNl  (3)  ,AIN(3)  , AIN(4>  , AIN(14)  ,HI(2I 
NNKT)  = 0 

IF(HI(2) .GT.O.OOQ1.0R.NNINIT.GE.NN1{3)>  GO  TO  4 
IF(HI(2) .LT.O. coon  WRIT£(6,360) 

IF<NNINIT  .LT.NN1(3) ) WRITE (6,37  0) 

RETURN 

4 call  UPRINIT(ICRIT) 

IFdRBUB.EQ.O)  WRITE(6,3S0)  RBUB,U3INIT 
IFdRBUB.  EQ.  1)  WRITE(6,350)  RBUB 
IFdRBUB.  EQ.  2)  HRITE(6,340)  RBUB 
IFdI.EQ.O)  RETURN 

IFdia.EQ.O)  NNK7)  = II+l 
IF(II2.EQ.0)  II  = II+1 
IICX  = NNK7) 

IHALF  = II/2 
K = H00(II,2) 

IHALFl  = IHALF 

IF(K.EQ.l)  IHALFl  = IHAlF+1 

WRITE(6,400) 

IFdl.tQ.  1)  GO  TO  15 
00  10  1 = 1, IHALF 

IF(I. NE. IICX. ANO. (IdHALFl)  ,NE. IICX)  GO  TO  5 
IFd.EQ.  IICX)  HRITE(6,310)  (1ST  AR  (L  » , L = 1,  4)  , X BO  ( I ♦ I HA  LF  1)  , 
IRMBO(ITIHALFI)  , PP  ( I TlHALF  1 , J)  , OUBO(  I H HAL  FI ) 

IF ( (I* IHALFl) .EQ.IICX)  WRITE(6,320)  XBOd),RMBO(I) , PP ( I , J ) , DU30 (I) 
1 ,(ISTAR(L) ,L=1,4) 

GO  TO  10 

5 WRITE(6,3  00)  X0O  ( I ) , RM90(  I)  , PP(  I , J)  , D UBO(  I ) , X 90  ( I «•  I HA  LF  1)  , 

1 RMSOd  + IHALFl)  ,PP(ITIHALF1,J)  ,0UB0(I»IHAlF1) 

10  CONTINUE 

IF(K.NE.l)  GO  TO  18 

IFdICX.EQ. IHALFl)  HRITE(6,310>  ( 1ST  A R ( L)  , . = 1 , 4 ) 

IFdlCX.EQ. IHALFl)  GO  TO  18 

15  WRITE(6,3  0 0)  XBO(  IHALFl)  , RM90  ( IHALF  1)  , PP(  IHALFl, J),OU  BO  (IHALFl) 

13  IF(II2.LE.O)  HRITE(6,260) 

RETURN 

20  0 F0RMAT(4(/),  7X,  12A10757X,2A1  0) 

210  FORMAT)  //20X,4HNN  =12, BH,  XAO  =,F10.6,9H,  CYD  =F12.8, 

1 BH,  RMC  =,F10.6,8H,  HS  =,F10.6I 
260  FORMAT(/20X,3BH*»»»»»»»»»INTEGRATION  HAS  NOT  COMPLETED  ) 

30  0 FORMAT)  10X,2(  10X,4'^10 .4)  ) 

310  FORMAT(20X,4A10,10X,4F1D.4) 

320  FORMAT(20X,4F10.4, 10X,4A10) 

333  FORMAT!  /47X,6HRPU8  = , F 10 . 6 , lOX , 4HU3  =,F10.6) 

340  PORMAT)/  39X,6HR8UB  = , F 10 . 6 , 4 0H»» FL OH  CONDITIONS  CANNOT  BE  HAT 
ICHED  ) 

350  FORMAT)/  59X,6HRPUB  =,F10.6) 

360  FORMAT)//20X,29H*»*»'»*»*»ST£P  SIZE  TOO  SMALL) 

370  FORMAT(//20X,49H»»*»*»'»»»INSUFFICIENT  NUMBER  OF  STRIPS  AVAILABLE) 
400  FORMAT(//10X,2)17X,2HX9,8X,2HM9,8X,2HPB,7X,4HOJDX)) 

END 
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SUBROUTINE  URRINIT (ICRIT» 

C 

C THIS  SUBROUTINE  CALCULATES  THE  INITIAL  CONDITIONS  ON  THE  U»(»ER 
C SURFACE 
C 


COMMON  C 

,CK 

,RS 

,FH 

•ALPHA 

COMMON/ ACOM/X 

• XA 

,VN 

,*S 

»H  ,0Y 

1 ,T0  ,P0 

,R0 

,U0 

• VO 

,RMO  ,0U0 

2 ,t(2,10l  ,P(2, 

10I,R(2,10) 

,U(2,10I 

,*(2,10> 

• RM(2,10),OUr 

COMMON/CCOM/XB 

.»B 

,0TB 

,ODTB 

,OUB  ,PB 

1 ,UB  ,RMB 

,0B 

,HS 

,CRA 

COMMON/AINPUT/ 

A0UH(2) 

,XAO 

,CTO 

,DUM(15I  ,DE 

1 ,YSO  ,TS 

,00UM(2) 

,N0UM(2) 

, NNUPR 

,MDUH(4I  ,H  1 

2 >HSI  ,H2(4I 
C01W0N/TUVSAV/  NNO,  NNSPR  , NNOHN 
1 •Tm0(2l  ,UI(10i2l  ,Vmo,2)  (YUVOB) 

CONHONFCOHNNFNN 

COHNON/OUTCOH/EOUHI4HO> ,II  ,112 

COHHON/RBUBCH/RBUB  ,U8INIT  ,IRBUB 

0(AC,  Al,  A2,  Zl  = AO  ♦ Al*Z  ♦ A2*Z»Z 
C 

C INITIALIZE  INPUT 
112=0 
II  = 0 
HS  = HSI 
NN  = NNUPR 
X = -OE 
XA  = XAO 

00  52  N = 1,  NNO 
Y(1,NI  = TUN.H  -TSO-YS 
U(l,Nt  = UHN,1» 

VT1,N»  = VI«N,1I 

VSO  = U<1,NI»U(1,NJ»V<1,N)»V(1,N) 

R(1,NI  = <<C-YST)XTC-1.))»»2.5 
P(1,NI  = RU,N)*»1.4  • 

52  RH<1,N)  = S0RT<  YSQ*R<  1,N» /(1.4»CK»P(1,N))  I 
C 

C CALCULATE  RBU3 

Y1  = Y<1,NN0-1)»YS»YS0-YI(NN0,1) 

Y2  = T(1,NN0-2I+YS*YSP-YHNN0,H 

call  A1SUB<Y1,Y2,UU,NN0»  ,Ufl,NN0-l)  ,U(l,NN0-2(  ,AlU» 
call  A2SU3IY1,  Y2,Ufl,NN0*  ,U(1,NN0-1)  , U « 1,  NNO- 2)  , A ZUI 
CALL  A1SU3«Y1,Y2,V(1,NN0) , V « 1 , NNO-1 ) , V < 1, NNO- 2) , AlVt 
call  A2SU3(Y1,Y2,V{1,NN0»  ,VI1,NN0-1)  ,V(1,NN0-2)  ,A2V> 
BO  = U(1,NN0I*RI1,NN0) 

B1  = U(1,NN0-H»R(1,NN0-1) 

32  = U( l,NNO-2l»RC l,NNO-2) 

CALL  AlSUBtYl,Y2,B0,31,B2,AlCI 
CALL  A2SUBCY1,Y2,BO,31,02,A2C) 
call  ARFL  «XA,  XB,  Y3,  0Y3,  ODYB,H 
YO  = tOE  ♦ X3T/DY3  * Y3 
YO  = YO  + YSO»YS-YHNNO,H 
UO  = 0(U(1,NN0T ,A1U,A2U,Y0> 

VO  = 0( Y< 1,NN01 ,A1V,A2Y,Y0) 

RO  = ((C  - UO»»2  - VO»»2)/TC  - l.)l»»2.5 
PO  = R0»»1.4 

RHO  = S0RTUU0'*2  ♦ V0*»2» /<  1.4»CK»P0/R0)  ) 

CT  = l.XSQRTd.  » 0Y3»*2) 

ST  = 0TB*  CT 

RAP  = ABS  (l.Z<CT»»3*00YB»  » 

OB  = (OE  ♦ XB1 /ST 
VS  = UO’CT  ♦ VO*ST 
VN  =-UO*ST  ♦ VO»CT 

CL  = BO'»YO  ♦ AlC*Y0»»2/2.  ♦ A2C»TO**3/3. 

RBUP  = 6.»CL/0P  - VS*RO  - 4.*VS*RO*CYO 
C 

n = 0 

IPPUB=0 

IF(R3UBJ  55,55,58 
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ro 


75 


80 


85 


90 


95 


100 


105 


C 

55  IRBUa  = 1 

RETURN 

C 

58  U8S  = 0.1 

RqU0fi  I R0U8»*  0 • CC*  1 • ) 

c USING  NEmTON-RIPHSONG  METHOD,  ITERSTE  ON  U»  UNTIL  R9UBP  x RUP 
UB  X 0.1 
00  60  K=l,50 
RUP  X C’UBX’O.L-UP**?.!* 

IF<A8S(RU»-RBUBPI  .LT. . 0 008  0 1)  GO  TO  TO 
ORUPDU  X 0.4»C/U9»»0.6-2.  LXIIBx*!  .4 
UB  X UB  ♦ (RBUBO-RUP* /DRUPOU 
1F(UB.LT.0.)  UBS  = UBS».05 
IFIUB.UT.  0.»  UB  X UBS 
IF (UBS. GT . 1. t RETURN 
60  CONTINUE 
C 

IRBUB  X 2 
65  RETURN 
C 

70  IF(C-UB»UB1  65,65,71 

71  RB  X ( (C-UB*UB)  7 (C-1.  )t ’•7 .5 
UBINIT  X UP 

PP  X R9»»1.4 
C 

C CALCULATE  RIB  FOP  THIS  UP 

RMB  X UB/SQRT(1.4»CK*“B/RB) 

CALL  ARFU  (XA»HS»CT,  XBT,  YBT , OYPT,  00YBT,1) 

OPT  X OB  ♦ (1.  ♦ 06/(PAB»DPn •VN7VS»HP 
0 _ XBT  - D8T*OY9T/SQRT  (1 . ♦ DYpT**2»  - X 
C 

IFdCRIT.EQ.l)  CAUL  SPRCRTUl) 

IFCICRIT.EQ.?)  CALL  SUBCRT  1(  1) 

C 

RETURN 

END 
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SUBROUTINE  SPRCRTKJI 
C 

C THIS  SUBROUTINE  CALCUL4TES  THE  INITIAL  PLOW  CONDITIONS  ON  THE  UP»ER 
C SURFACE 
C 


COHMON  C 

,CK  ,RS 

,PH 

, alpha 

COMHON/ACOH/X 

,XA  ,VN 

,WS 

,OT 

1 ,tO  ,PO 

,RO  ,U0 

,vo 

,RH0 

,0U0 

2 ,Y(2,10),P<2 

,10),R<2,10) ,UI2,10i 

,V<2,10I 

,RM(2, 

10I,OU(2,10I 

COHHON/CCOH/XB 

,YB  ,DYB 

,0DT8 

,0UB 

,PB 

1 ,UB  ,rhb 

•DB  ,HS 

,CRA 

COHHON/OCOH/CS  , 

CZ,A30UMC5) ,ISKie 

comnon/ainput/ 

0UM<13» ,RPC 

,BDUM<4) 

,XAS»R 

,CDUH(5) 

1 ,NN1«7)  ,H1(6) 

COMHON/YUWSAtf/  NNINIT ,NNSPR , NNOMN 

1 ,YUVH60)  ,tSPR(10»  ,USPR(10>  ,VSI»R(  10>  ,YUV2I66) 

COMHON/OUTCOH/ 

1 X9O<160l  ,RHBO(160),OUBO(160>  ,11  ,112 

COHHON7COHPRS/Xy«160,2>  ,PP<160,2)  ,NPt?» 

C0MH0N/C0HNN7NN 

OIHENSION  BWS(6) ,6WN(6) ,qOR(6» 

OIHENSION  ex <41 ,BXA<4) ,BU3(4> ,BHB(4) , BU( 4, 1 0 1 , 9V ( 4 , 1 0)  , ST( 4 , 10 ) 
C 

C INITIALIZE  INPUT 
II2  = 0 
CRA  = 0. 

CSC  = 0.3 
OCSO  = .02 
OCSl  = .03 
NTFRH  s 3 
1=0 

N1  = NN  - 1 
100  DO  110  K = 1,  100 
DO  108  KK=1,NTERH 
C 

C PEPFORH  FLOW  INTEGRATION  STEP  IN  thE  SUSSONIC  REGION 
call  0UNS<1,J» 

00  104  N = 3,  N1 
104  CALL  INAS(1,J,N,U 
CALL  INBO(NN,J» 

C 

IF<RHB.GE.CSO.OR.OU3.LE.5.0)  GO  TO  10° 

108  CONTINUE 
C 

103  II  = II»1 

XBOni)  = X3 
RMOOai)  = RN3 
0UB0<II1  = 0U3 
XX<II,J>  = X3 
P»(II,JI  = P3 
C 

IF(PMB.GE.1..0R.DU9.LE.5.)  RETURN 
C 

IF (RH3.GE.CS0)  GO  TO  120 
C 


C 

c 

c 


c 

c 


110  CONTINUE 
RETURN 

IF  THIS  IS  THE  FIRST  TIHE  THROUGH  0‘^CREASF  THE  STFo 
120  IF(I.GT.O)  GO  TO  122 
HS  = HSF2. 

• H = HF2. 


SAVE  FLOW  P50PERTIES  AT  THIS  STATION  fqr 
122  I=I»1 

3X(I)  r X 
3XA(I)  = XA 
BUR(I)  = UB 


FUTURE  USE 


SIZE  BY  half 


129 


ro  9MB«I)  = RUB 

BOBd)  = nB 
BVSd)  = VS 
BVNdl  = VN 
on  12<»  N = 2,  NN 
75  0U«I,N)  = U(J,N» 

BV«I,N)  = V«J,N1 
12ii  BT(I,N)  = T<J,N) 

C 

IF  (I  - M 126,  150,  150 

SO  126  cso  = cso  ♦ onso 

GO  TO  100 

c 

15  0 H - H»2. 

HS  = HS»2. 

B5  HX  = HS/SIRTTI.  ♦ OVn»»?) 

C 

C find  THS  X STATION  FOR  WHICH  RH''  IS  GREATER  THAN  1.03  USING  A 
C LAGRANGIAN  FUNCTION 
00  160  N = 1,  100 
go  XA  r XA  ♦ HX 

CAU  LGRNGN(  9MB(  II  ,gH9(2)  ,gM3(3)  ,813(4)  , 

IBXA(l)  ,BXA(2)  ,RXA(3)  ,8XA(4l  ,XA,RMR) 

IF  (RUB  ,GE.  I.OII  GO  TO  200 
160  CONTINUE 

95  RETURN 

C 

C CALCULATE  FLOW  PROPERTIES  AT  THIS  X STATION 
200  II2  = -1 
II  = II*1 

100  NNim  = II 

CALL  LGRNGN(908(1)  ,9^8(21  ,B09(3)  ,909(4)  , 

'19XA(1I,9XA(2),BXA(3)>9XA(4),XA,09) 

CALL  LGRNGN(9VS(1) ,3VS(2) ,9VS(3) ,9VS(4> , 
igXA(ll,BXA(2) ,eXA(3) ,0XA(4),XA,VS) 

105  CALL  LGRNGN(9VN(1)  ,9VNT2)  ,9VN(3)  ,8VN(4)  , 

1"XA(1),9XA(2),pxA(3),9xA(4I,XA,VN> 

CALL  ARFL  <XA,  X9,  Y9,  OT B , 93VP,1) 

CT  r l./SORTd.  » 0T9*»2) 

ST  = CT’OTP 

110  TO  - T9  ♦ 03»CT 

X = X0  - ne»ST 

UO  = VS»CT  - VN*ST 

»0  = »S*ST  ♦ VN»rT 

RO  = ((C  - UO»UO  - V0»Vn)7(C  - l.))'*2.5 
115  RO  = RO*»1.4 

RNO  = SQRT((UO*UO  ♦ VO»  VO ) »RO/ ( 1 . 4*  CX»  PO)  I 
call  LGRNGN(BUB(  1)  ,9U3(  2)  ,BU3(3)  ,8U0(  4)  , 
19XA(1I,9XA(2),PXA(3),9XA(4),XA,U9) 

R9  = ((C  - U9»U9)/(S  - I.))**’. 5 

120  R9  = R3*»  1.4 

RIB  = U9/SQRT  ( 1 . 4*CK»p3/R9) 

00  220  N = 2,  NN 

call  LGRNGN(3U  ( 1 ,N)  ,9U(  2,  N)  ,9UC',N)  ,9U  (4,N)  , 
1BX(1),9X(;>),3X(3),PX(4),X,U(J,N)) 

125  call  L&RNGN(9V(1,N),3V(2,N) ,3V(X,N)  ,3V(4,N)  , 

1 °X(1I,9X(2),«X(3),“X(4),X,V(J,N)» 
call  LGRNGN(9T(1,N),9T(2,N),9Y(3,N),9Y(4,N)  , 

1 9X(l),PX(2),9xr')  ,'>X(4),X,Y(J,N)I 
VSC  = U(J,N)»U(J,N)»V(J,N)»V(J,N> 

130  R(J,N)  = ( (C-VSQ) /(O-l .1 ) •• 2.5 

P(J,N)  = P(J,N)”1.4 

2?0  RN(J,N)  = SORT  ( VSQ»R(  J,N)  / ( 1. 4»PK»P(  J,  N))  ) 

C 

CPI  = RMP 

135  1=0 

C 

250  no  230  K = 1,  50 
no  250  X<-1,NTFR" 

C 


130 


!%• 


1^5 


150 


155 


160 


165 


1?0 


175 


180 


185 


190 


195 


C PERFORM  FLOW  INTEGRITION  STEP  IN  SUPERSONIC  REGION 
CALL  OUNS(liJ) 

N1  * NN  - 1 
00  275  N s J,  N1 
275  CALL  INASfliJ>N,lt 
CALL  INSO(NN,JI 
C 

IFCRNB. GE. CS1.0R.RM9.lt. 1.0. OR. RH(J, NNI  .GE.RHCI  GO  TO  285 
C 

280  CONTINUE 
C 

285  II  = II»1 

XBO<II)  = XB 
RRBOflll  = R9B 
OUBOTII)  = 0U9 
XXdl.Jt  = XB 
PPIII,J»  = PB 
C 

IFTRMB.LT.l.O.OR.RMB.GT.2.0)  RETURN 
C 

IF  <RMB  .GE.  CSl)  GO  TO  S20 
C 

IF«RM(J,NN».6E.RHC1  NN=NN-1 
290  CONTINUE 
C 

C SAVE  FLOW  PROPERTIES  AT  THIS  STATION 


C 

C 


c 

c 


c 


320  I ■=  1*1 
Bxm  = X 
00  321*  N = 2,  NN 
BUII.N)  = UU|Ni 
aV<I,N)  = VIJ,N» 
32H  BT<I,N)  = YU, NT 


IF  (I  - AJ  326,  350,  350 

326  CSl  = CSl  ♦ 3CS1 
GO  TO  250 


CALCULATE  FLOW  PROPERTIES  AT  X9  FOR  INPUT  TO  NEXT  STEP 
350  YSPR<1)  = Y«J,1» 

USPRCll  = U<J,1> 

VSPRIl)  = VU,H 
00  360  N = 2,  NN 

call  LGRNGN«BT(1,N)  ,9T(2,N)  ,9YU,N)  ,BY(4,N)  , 

1 BXU) ,BX<2) ,BX< 31,9X14) ,X9,YSPR(N1) 

CALL  LGRNGNI9U<1,N)  ,BU«2,N)  ,3U<3,N)  ,BU(4,N»  , 

1 BX(l) ,9X«2) ,eX(3) ,3X14) ,X9,USPR(N1) 

360  call  LGRNGN<9VT1,N),9VI2,N)  ,8V(3,N)  ,BVI4,N)  , 

1 PXtll  ,9X(2)  ,BX<3)  ,9X(4)  ,X9,VSPR(N)  ) 

NN  = NNU 
YSPPtNN)  = YB 

USPRINN)  = UB7SQRT«1.*0Y9*0Y9) 

VSPRINN)  = USPRINNl’OYR 
NNSPR  = NN 
XASPR  = XA 
112=1 

RETURN 

END 
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SUBROUTINE  I0SPCT2IJ,LI 
C 

C THIS  SUBROUTINE  PRINTS  THE  INPUT  PARAMETERS  ANO  THE  CALCULATED 
C OUTPUT  FOR  SUBROUTINE  SPRCRT2 
C 

CONMON/AINPUT/  AIN<24I  ,NNltn  ,HI(6) 

COMMONFYUVSABF  NNINIT ,NNSPR, NNOMN , YU* (1561 

COHHON/OUTCON/ 

1 AXA(160I  ,AOU(160)  »OOQO ( 160) , I I ,112 

COHMON/COMSPR/ ARNO (160) 

COMMON/COHPRS/XX(160,2>  «PP( 160,2) ,NP(2) 

OIHENSION  ISTAR(5I  ,ITITL£(4) 

DATA  ( 1ST AR(I) ,1=1,51 /5* 1 0H**»»»»»» •* F 

DATA  (ITITLE(I) ,I=1,4)/10H»  AIRFOIL  ,10HSOLUTION  ♦,10M  UPPER  S, 
1 lOHURFACE  / 

HR  IT  E(  6, 2 00)  ( 1ST  AR(  I ) , 1=  1 , 6)  , ( I T IT  LE  ( I)  , 1 = 1 , 2)  , ( ISTA  R ( II  , I = 1, 5)  , 

1 (ITITLE(I) ,1=1,4) 

HRITE(6,2iO)  NNK  5), A IN  (2),  (A  IN  (I),  1=15, IT),  HI  (5) 

IF((NNSPR.EQ, 0) .0R.(NNSPR.GT.9) ) 00  TO  20 
HRITE(6,220I  NNSPR,AIN( 19) 

H = (1.0-AIN(T))/0.01+(AIN(T)-0.1)T0.005K0.1-AIN(3))TH1(5) 
IF(H.LT.4TO.OR.NNSPR.&E.NN1(5))  GO  TO  4 
IF<NNSPR.LT.NN1(5))  HRITE(6,330) 

IF(M.GT.4T0)  HRITE(6,320) 

IF(NN1(5) .LT.NNSPRI  HRITE(6,330> 

RETURN 

4 00  5 1=1,160 

5 OOQO(I)  = 0. 

CALL  INVELOC(L,J) 
call  SPRCRT2(J,U 
IF(II.EQ.O)  RETURN 
IHALF  = II/2 

K = M00(II,2I 

IHALFl  = IHALF 

IF(K.EQ.l)  IHALFl  = IHAL‘^  + 1 

HRITE(6,400) 

IFdl.EQ.l)  GO  TO  15 
00  10  1 = 1, IHALF 

10  HRITE(6,310)AXA(I)  ,ARHO(I ) ,PP(I,J)  , ADU(I)  ,ODQO(  I)  , A XA  ( I»  I HALF  1)  , 

1 ARMOd*  IHALFl)  ,PP(  I ♦IHALFl,  J)  , AOU  d ♦ IHAL  F 1)  ,DOQO(  !♦  IHALFl) 
IF(K.NE.l)  GO  TO  18 

15  HRITE(6, 310)  AXAdHALFl)  , ARMO(  IHA  LF  1)  , PPI  H ALF 1 , J)  , AOU(  IHALF  1)  , 

1 ODQOI IHALFl) 

13  IFdI2.EQ.O)  HRITE(6,260) 

RETURN 

20  HRITE(6,250) 

RETURN 

200  FORMAT(4</),TX,12A10/57X,2A10) 

210  FORMAT(  /T20X,4HNC  =, I2T/ 20 X, 1 2HSH0CK  LOG.  =F10.6, 

1 lOH,  BETA  = ,F10.6,10H,  DELS  =,F10.6,10H,  CDDQ  =,F10.6, 

2 8H,  HO  =,F10.6) 

220  FORHAT(/20X,31HFROM  INITIAL  CONDITIONS,  NN  =,I2,13H,  X(INIT)  = 
1 ,F10.6) 

250  FORMAT(T2aX,45H*»»»»»*»»»PREVIOUS  STEP  HAS  NOT  BEEN  COMPUTED) 

260  FORMAT(/20X,39H»»***»*»*»INT£GRATION  WAS  NOT  COMPLETED  ) 

310  F0RMAT(2(  1JX,5F1C.4)  ) 

320  FORMAI(T/20X,29H*******»»»SI£P  SIZE  TOO  SMALL) 

330  FORMAT<TT20X,49H**»»»»*»«*lNSUFFICItNT  NUMBER  OF  STRIPS  AVAILABLE) 
400  FORMAT (TT2(1TX,1HX,9X,2HMO,8X,2HPO,7X,4HOUOX,6X,3HOOQ, IX) ) 

END 
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C 

: THIS  SUBROUTINE  PERFORHS  FLOW  INTEGRATION  FOR  THE  BULK  OF  THE 

C AIRFOIL  SURFACE 

C 


CONHON  C 

• CK 

• RS 

• FH 

•ALPHA 

COHNON/ACOH/X 

• XA 

• VN 

• VS 

»H 

• dt 

1 iTO  fPO 

• RO 

•uo 

• VO 

• RHO 

,0U0 

2 ,TI2|10I  tP<2il(l) 

•RI2,10) 

• UIZ^IOI 

• V(2,10) 

• RH(  2, 

10),OU(2,10) 

CONHON/OCOH/CS 
1 ,V00  , ISKIP 

• CZ 

• DVl 

• 01 

,001 

• RK 

C0NH0N/AINPUT7 

A0UHT6) 

• SL 

• aOUH(7) 

•BETAU 

• DELS 

1 ,COOQ  »RKI 

2 , NNSPR  (NNZtZ) 

, XASPR 
• Hid.) 

•COUHITI 

• HO 

• CSI 

• HOHN 

,CZI 

•NN1(4) 

COHHON/rUVSAV/  NNINIT ,NNO ,NNOWN 

1 ,vuy  (60t  ,T$PR(10t  >USPR(10>  , VSPR(  1 D) , TU  ( 1 01  , UU  ( 10  > • VU  ( 1 0) 

2 ,Tl  (10)  ,UL(  10)  •VLdOl  ,TOU,TOL  ,UOU,UOL  >VOU,VOL 
CONPON/OUTCOH/ 

1 AXA(16G)  ,A0U<160>  ,0000 1 160)  1 1 1 tllZ 

COHHON/COMPRS/XX(160,  2)  , PP 1 160 , 2)  , NP(  2) 

CONHON/COHSPRFARHO<160) 

0(A0,  Al,  A2,  Z»  = AO  «•  A1»Z  ♦ A2»Z'Z 
C 

C INITIALIZE  INPUT 
NN  = NNSPR 
II  = 0 
112=0 
NTERM  = 3 
ISKIP  = 3 
PS  = RS»»1.P 
CS  = 1.0 

cz  = c 

H = HO 
XA  = XASPR 

CALL  ARFL(XA,X,YO,OT,OUH,J) 

BETA  = 8ETA0F57.295ZZ95 
TO  = YSPR(NNO) 

UO  = USPR(NNO) 

VO  = VSPR(NNO) 

00  = SORT (UO*UO*VO»VO) 

RO  = UC  - Q0»»2)FtC  - l.))**2.5 
PO  = RO’Pl.L 

RHO  = QOFSQRTl 1.4*CK*P0/R0) 

00  102  N = 1,  NN 
Y1J,N)  = TSPRIN) 

U«J,N)  = USPRINI 
VIJ,N)  = VSPR(N» 

WSQ  = U<J,NI»UU,N)*V(J,N)»VIJ,N) 

R(J,N1  = ((C-VSQ)Y(C-1.)>*»2.5 
P(J,N)  = R(J|N)*»1.4 

102  RM(J,N)  = SQRM»SQ»R(J,N)/(l.i»»CK»P(J,N))) 

C 

H = ABSf  < .99-X) /H> 

DQl  = 0.0 
DO  295  K=1,M 
00  280  KK=1, NTERM 
000  = 001 
C 

C PER'^ORM  FLOW  INTEGRATION  STEP  IN  SUPERSONIC  REGION 
CALL  OUNSd.J) 

X = X*H 

DO  270  N = 3,  NN 
270  CALL  INASd,  J,  N,NN) 

C 

C 

IP(A3S(OUO).GE.100.0.0R.X.LT.O.O.OR.X.GE.SL.OR.  RMO.lt  .1.)  GOTO  285 
C 

IF  (X  .G£.  0.1)  H = 0.005 
C 
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ra 


r* 


M 


8S 


90 


95 


100 


105 


110 


115 


120 


125 


130 


135 


2M  CONTINUE 
C 

215  OOQ  = <DQ1  - OQOI/H 
II  II»1 
AXA(II)  > XA 
AOUIIII  < DU(J,NNI 
ARMOIIII  * RNQ 
ODQO(II)  > 000 
XXfII,JI  = X 
PPdI.JI  = PO 

IF(DOQ.GE.CQOQ)  NN  = NN-1 
C 

IF! ABStOUO] .GE .100..0R.X.LT. 0. 0)  RETURN 
C 

IF  IRMO  .LT.  1.01  RETURN 
C 

IF  (X  .GE.  O.H  H = 0.005 
C 

IFIX.GE.SLI  GO  TO  300 
C 

295  CONTINUE 
RETURN 
C 

C APPLY  RANKINE  HUGONIOT  RELATIONS  THROUGH  SHOCK  HAVE 
300  00  = SQRT(UO»UO  VO’VOI 
UOl  = 00»SIN(BETAI 
VOl  = 00»C0S(9ETAt 
RMO  = RMO»SIN(BETA) 

R2R1  = 2. ‘*»RMO*»2/<0.4»RHO**2  ♦ 2.) 

P2P1  = 1.  + T./6.* (RMO»»2  - 1.) 

U02  = U01/R2R1 
V02  = VOl 

00  = SQRT(U02»»2  ♦ V'02»*2» 

UO  = Q0/S0RT<1.  ♦ DT*OY) 

VO  = UO»OT 
RO  = R0»R2R1 
PO  = P0»P2P1 
C 

IF  (OELS  .LE.  0.0)  GO  TO  306 

PS2  = PS»  <2.‘**RMO**2/(0.i.»RMO**2  * 2.  ) ) ♦» 3 . 5/P2P 2.  5 
RS2  = RO»<PS2/PO)»*(1./1.«.) 

C2  = IC  - l.l»PS2FRS2 
CS  = POXRO*»l.H 

c 

306  H = 0.01 

RHO  = SQRTUdO'UO  ♦ VO»  WO ) F ( 1 . 4»CK*  POX  RO)  ) 

IF<L.E0.2)  call  L&RNGN(V0,VIJ,NN-1)  ,V(  J,NN-2)  ,V(J,NN-3)  ,0.0, 

1 Y<J,NN-l»-TO,T  ( J,NN-2)  - TO,  Y ( J , NN- 3 ) - YO  , Y ( J , NN)  -YO,  V C J,  NN ) ) 

C 

M = (1.0-X)/H 
DO  320  K = 1,  M 
DO  308  KK=1,NTERM 
C 

C PER'^ORM  FLOW  INTEGRATION  STEP  IN  SUBSONIC  REGION 
CALL  OUNSd.J) 

X = X»H 

DO  30T  N = 3,  NN 
302  CALL  INAS tl, J, N,NN) 

U 

IF (RMO.  GT .1.0.0R.X.GE.1.0.0R.A3S(OUO).GE.50.0.0R.X.LT.O.)GO  TO  310 
308  CONTINUE 
C 

310  II  = IIH 

AXA(Il)  = XA 
AOU(II)  = DU(J,NN1 
ARMO(II)  = RMO 
XX(II,J)  = X 
PP(II, J)  = PO 
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IM  f IF  UBSIOUO  ) .GE.50.0  .OR.  X .LT.  0 . 0. OR.RHO . GT . 1. 01  RETURN 

C 

IFCX.GE.l.OI  GO  TO  360 
C 

320  CONTINUE 

165  C 

C SAVE  FLOW  PROPERTIES  CAtCULAIEQ  AT  FINAL  STATION  AS  INPUT  TO  NEXT 
C STEP 
360  II2<1 

NPlJl  = II 
150  NNOWN  z NN 

00  600  Nzl,NN 
rU(N)  = T(J|NI 
UU(N)  z U(J,NI 
410  VUfN)  z V(J,NI 


155 

YOU  z TO 

UOU  = UO 

VOU  = VO 

CSI  z cs 

CZI  = cz 

160 

RETURN 

END 
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SUBHOUTINE  IOONST««J) 


THIS  SU8R0UTINE  PRINTS  THE  INPUT  PARAHETERS  AND  THE  CALCULATED 
OUTPUT  FOR  SUBROUTINE  OMNSTRH 

CONNON/AINPUT/  A IN « ) , NNH  7 ) ,HI(6) 

COPHONFOUTCOH/ 

1 AXI160)  ,APO(1601  ,AP1(160»  ,II  ,111 

CONPONFCOHOMN/ARMO(160» 

COHMONFTUTSAT/NNINIT  ,NNSPR  ,NN0HN  ,YUV«156) 

OIHENSION  ISTARCS) ,ITITLE«2) 

DATA  (ISTARdI , 1=1 , 5 J /5*1 0H**»»*»**»» / 

DATA  (ITITLE(I) ,1  = 1,21 /lOHOOHNSTRFAH, lOH  SOLUTION*/ 

HRITE(6,2  0fll  (ISTARCI  ),I  = 1,SI  , CITITL'^C  I»  ,1=1, 2)  , (ISTARd)  ,I  = 1,5» 
HRITE(6,210>  NNH6),HI<6)  ,AIN(1«> 

WRITE!  6, 2 2D)  A IN(  7)  , A IN  U 5)  , AIN  J 2 3)  , A IN  !24) 

M = B.0/HII6) 

IF!P.LT.470.0R.NNDHN.r.E.NNl(6))  GO  TO  4 
IF!M.GT.470I  HRITE(G,310» 

IF!NNDHN.LT.NN1!6I)  HRITE!6,320) 

RETURN 
4 CALL  OHNSTRHIJ) 

IFdI.EQ.QI  RETURN 
IHALF  = H/2 

K = M0ndl,2» 

IHALFl  = IHALF 

IF(K.EQ.l)  IHALPl  = IHALP»1 

HRITE(6,4B0) 

IFdI.EQ.l)  GO  TO  15 
DO  10  1 = 1, IHALF 

HRITE(6,3  00I  AX(I)  ,ARM0(1)  ,APOd)  , A i»m ) , AX  ( I ♦!  H AL  F 1)  ,ARHOt  IHHALF 
. 1 1)  ,APO(  I + IHALFU  ,APld4lHALFl) 

10  CONTINUE 

IF(K.NE.I)  go  to  18 

15  MRITE(6,3  00)  A X dH  AL  FI)  , A RHO  ( IhALFI  ),  A POdH  AL  F l ),  AP 1 ( I HAL  FI » 

18  CONTINUE 

IFdll.EQ.O)  HRITE(5,260) 

RETURN 

200  F0RPAT(1H1,4</) ,7X,12A10) 

210  FORHAT!  //20X,4HNN  =,I2,7H,  H =,F10.6,8H,  RK  =Fi0.6) 

22  0 FORHAT(/20X,45HFROM  UPPER  SURFAC‘D  INTEGRATION,  SHOCK  LOC.  = 

1 F8.4  ,10H,  seta  = F8.4  ,8H,  CS  = F8.4  , 8H , CZ  = F8.4  ) 

260  FORPAT(/20X,39H*»»»»*»»**INTEGRATION  WAS  NOT  COHPLETED  ) 

300  FORHAT(10X,2<10X,4F10 .4)) 

310  FORHAT{//20X,2gH»»»*»»»***SrFP  SI7F  TOO  SMALL) 

320  FORPAT! // 20X ,49H»**»****»»INSUFFICIENT  NUMBER  OF  STRIPS  AVAILABLE) 
40  0 F0RhAT(//8X,2(19X,1HX,9X, 2HHO , 8X , ?H »0 , 8 X,  2HP1)  ) 

END 
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C 

C 


C 

c 


c 

c 


c 


SUmOUTINE  OMNSTRMtJt 

COlWON  C ,CK  ,RS  ,FH  , ALPHA 

COHMON/ACOHFX  ,XA  ,VN  ,*S  ,H  ,OT 

1 ,TO  ,PO  ,RO  ,UO  ,VO  ,RHO  ,000 

2 «Y<a,10}  ,P(2,101,R(2,1Q>  ,012,101  ,V(  2, isi  ,RMI  2, 101 , 00(2,101 

COWMON/OCOHFCS  ,CZ  ,0W1  ,Q1  ,0Q1  ,RK 

1 ,*00  ,ISKIP 

COHHON/AINPOT/  AIN«17) ,RKI  ,OOOB(4),CSI  ,CZI 

1 ,NN1(5)  ,MN  ,KN2  ,HTI5»  ,HI 

COWlON/rOWSA*/  NNINIT,NNSPR,NNDMN 

1 ,rOV  (601  ,TSPR(10»  ,OSPR(10»  , VSPR(  1 0)  , TO  ( 1 0)  ,00(10)  ,*0(10) 

2 ,*L(10)  ,OL(10t  ,VL(10)  ,TOO,YOL,000,OOL,VOO,VOL 
COHHON/OUTCOH/ 

1 AX(160)  ,APO(160)  ,AP1(160)  ,II  ,111 

COMHON/COnOMNZARHO(160> 


INITIALIZE  INPUT 
NTERH  = 4 
CS  = CSI 
CZ  = CZI 
H = HI 
RK  = RKI 
II  = 0 
111=0 
ISKIP  = 1 

IF(J.EO.l)  GO  TO  4 
00  3 N=1,NN 
VU(N)  = YL(N) 

UU(N)  = UL(N) 

3 VU(N)  = VL(N) 

4 00  5 N=1,NN 
T(1,N)  = TU(N» 

0(1, N)  = UU(N) 

5 V(1,N)  = VU(N) 

X = 1. 

00  14  N = 1,  NN 

WSO  = UU(N)*UU(N)  ♦VU(N»*VU(N» 

R(1,N)  = ((C-*SQ)/(C-1.»)»»2.5 
P(1,NI  = R(1,N)**1.4 

RH(1,N)  = SQRT(*SQ/(1.4»CK*P(1,N)ZR(1,N)I) 

14  0U(1,N)  = 0. 

VSO  = UOU*UOU»VOU**OU 
IF(J.EO.Z)  *SQ  = UOL*UOL»-VOL*VOL 
RO  = ((CZ  - VSQI7(CS»(C-1.)>»*»2.5 
PO  = RO  •*1.4»CS 
RHO  =SQRT(VSQ/(1.4*CK»P0ZR0> ) 

000  = 0. 

TO  = (Y0U-Y0HZ2. 

QOU  = SQRT(*SQ) 

TO  = ATANtYOUZUOUJ 

OETFRMINE  T ANO  VOO-  INITIAL  VALUES 
TL  =-ATAN(»OLYUOL) 

T = (TO  ♦ THZ2. 

00  = QOU»COS(T) 

*0  = QOU»SIN(T) 

VOO  = YO 

M = AflSdO./HZNTERH) 

00  40  K = 1,  H 
00  35  K<=1, NTERH 

PERFORH  FLOW  INTEGRATION  STEP 
CALL  OUNStljl) 

CALL  INAS(1,1,NN,NN) 

IF(RM(1,NN).GT.0.95)  GO  TO  36 

IF  (X  .GE.10..0R.  X .LT  .0.0  .OR.  RHO  .GE.  0.57)  GO  TO  36 
X = X t-  H 
35  CONTINUE 
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ro  S6  II  * 11*1 

AX1II)  * X 
ARHOlin  = Rno 
APOIII)  = PO 
APKIII  = PdiNNt 

7S  inx.GE.lO.I  GO  TO  60 

IF(RN(l«NNI.GT.g.65.OR.X.LT.a.0.Oft.Rn0.GE.0.qrt 
AQ  CONTINUE 
50  111=1 
RETURN 

80  FNO 


RETURN 
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SUBROUTINE  AKUTTA 
C 

C THIS  SUBROUTINE  PRINTS  THE  CALCULATED  PRESSURE  DISTRIBUTION  ON  THE 
C UPPER  ANO  LOHER  SURPACES 
5 C 

CONHON/CONPRS/XX{160>2>  •PPI16a,2)  »NN1  ,NNE 

OINENSION  ISTARCm .ITITLEILI 

DATA  IISTAR(I)  ,1  = 1,41 /i**10H*»***»***P/ 

DATA  (ITITLEdI ,I*1,4>/10H**»*  PARTI, lOHAL  PRESSUR.IOHE  0ISTRI9U, 
10  llOHTION  *•••*/ 

NRITE<6,2  0ai  (ISTAR(II,I=l,4i  ,IITITLE(I),I  = 1,4I  , I IS  TA  R(  II  , I >l,4l 
IP(NNl.EQ.a.OR.NN2.EQ.O)  RETURN 
MRITEI6,400I 
N1  = NNl 

15  N2  = NN2 

NIHALP  = N1P2 
N2HALF  = N2/2 
J1  = H0D(N1,2I 
J2  = HOD(N2,2) 

20  IHALF  = NIHALF 

IFIM.GT.N2)  IHALF  = N2HALF 
IFTJl.EQ.l)  NIHALF  = NlHALF+1 
IF1J2.EQ.1)  N2HALF  = N2HALF*! 

00  10  1 = 1, IHALF 

25  10  HRITE(6,3Q0I  X X (I , 11 , PP «I , 1) , XX ( I*N IH A LF, II , PP( I*N1HALF , 1 ) , 

1 XXCI,2I ,PPII ,2) ,XX<I*N2HALF,21 ,PPC I+N2hALF,2I 

IF<N1.GT.N2I  GO  TO  30 
IF(Jl.N£.ll  GO  TO  18 

WRITE  (6, 3 101  XX(N1HALF,1I  ,PP  CNIM  ALF  , 1 ) ,X  XI  NIHALF,  2)  , PP  ( N IH  ALF,  2)  , 

30  1 XX<N1HALF*N2HALF,2I ,PPIN1HALF*N2HALF,2I 

13  N2ST0P  = N2HALF 

IF(J2.Ea.ll  N2STOP  = N2HALF-1 
NSTART  = NIHALF*! 

DO  19  I=NSTART,N2ST6p 

35  19  MRITE<6,320I  X X ( 1 , 21 , PP  <I , 21  , XX  «I  *N  2H  ALF,  2)  , PP(  I + N2HALF  , 21 

IF(J2.NE,1I  go  to  50  . 

HRITEI6,320I  XX(N2HALF,2l  , PP (N2HALF  , 2 1 
GO  TO  50 

30  HRIT£<6,340I  X X <N2HALF  , II  , PP  (N2H  ALF  , II  , XX I N 1H  AL  F*N2HALF  , 1 1 , 

40  1 PP(N1HALF*N2HALF,1) ,XXIN2HALF,2I ,PP(N2HALF,2) 

33  NISTOP  = NIHALF 

IFUl.EQ.ll  NISTOP  = NlHALF-1 
NSTART  = N2HALF+1 
DO  39  I=NSTART , NISTOP 

45  39  MRITEI6,340)  X X 1 1 , 1)  , PP  ( I , II  , XX  C I*N  1H  ALF,  II  , PP  ( 1*N1HA  LF  , 1 1 

IFIJl.NE,  1)  GO  TO  50 

WRITE<6,340)  XX(N1HALF,1I , »P (NIHAlF , 1 ) 

50  CONTINUE 
RETURN 

50  200  F0RMAT(1H1,4(/I 7X,12A10> 

300  FORHAT<12X,2(10X,4F10.6I) 

310  FORMAT ( 22 X, 2F1 0.6, 30 X,4F1 0.6) 

320  FORMAT(72X,4F10.6) 

340  FORNATI22X,4F10.6,10X,2F10.b) 

55  400  FORHAT(F35X,13HUPPER  SURF ACE , 3FX , 13HL0HER  SURFACE// 10 X , 

1 2(10X, 2I9X, 1HX,9X,2HP0I I ) 

END 
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SUBROUTINE  INVEl-OCa,J» 

COMHONfCOHNN^NN 

CONMON/»COH/X,X»,«N,VS,H,OV,TO,PO,RO,UO,VO,RNO,OUO, 

1 T<2,1BI  |R(2.  10)  «R(2ilOI  |U(2.10)  ,«C2, 101  ,RH(2ilOI  ,DU(2il0t 

CONNON/YU»S»*/  NNTNIT,NNO,NNONN 

1 ,TUV1 (60» .YSPRllO) ,USPRI10> ,*SP»I 10I,YUW2«65) 

0<ftO,»l,A2,2l  * A0*ftl»Z»A2»Z*7 
IF«J.EQ.2)  GO  TO  2 
NN  = NNO-1 
00  1 K=1,NN 
YIJ,K)  = YSPRIK) 

U(J,K»  = USPR«K) 

1 V«J,K»  = VS<»RIK» 

TO  = YSPR(NNOI 
UO  - USPR(NNO) 

VO  = VSPR(NNO) 

2 IFIL.EQ.I)  GO  TO  4 
IF(L.GE.3)  GO  TO  3 
HRITE»6,310I 

CALL  LGRNGN«VO,Y(J,NN-l) , V < J , NN-21 , V (J , NN-3) , 0. 0 ,Y( J,  NN-l) -YO, 

1 YU|NN-2l-YO,YT  J,NN-3)  - YO,  Y «J  , NN)  - YO  ,V  « J , NN)  t 

GO  TO  5 

3 MRITE(6,320I 

Y1  = T«J,NN-2) -Y(  J.NN-l) 

T2  = YU, NN-3) -Y<J, NN-l) 

call  A1SU5<Y1,Y2,VU,NN-1)  , V ( J,  NN-2 ) , V C J,  NN-3)  ,A1V) 

CALL  A2SUa«Yl,T2,VtJ,NN-l)  ,VIJ,NN-2)  , V t J,  NN-3)  , A 2V) 

V<J,NN>  = 0«V<  J, NN-l)  ,A1V,  A2V,Y{J,NN) -Y(J, NN-l)  ) 

GO  TO  5 

4 URITE<6,300) 

5 WR1TE16,400) 

NNPl  = NN*1 
THALF  = NNP1F2 
K = H00<NNP1,2) 

IHALFl  = IHALF 
IFTK.EQ.ll  IHALF1=IHALF+1 
00  10  1 = 1, IHALF 

IFUIYIHALFI)  .EQ.NNPl)  GO  TO  T 

6 WRITE  (6, 4 10)  T ( J , I)  , U « J , I)  , V t J , I)  ,Y  U , I»IHA  L F 1)  , UU  ,I  ♦ I HA  LF 1)  , 

1 »(J,IHHALF1» 

GO  TO  10 

r WRITE(6,41fl)  YU,  I)  ,U(J,n  ,V(  J,I)  ,YO,UO,VO 
10  CONTINUE 

IFIK.EQ.O)  go  TO  12 

WRITE!  6, 4 10)  Y « IH  ALFl , J)  , UC  THALF  1 ,J)  , V ( IH  AL  FI  ,J  ) 

12  IFtJ.EO.ll  WSPR(NN)  = V(J,NN) 

RETURN 

300  FORWAT(//47X,^OH••*INTERNEOI4TE  VELOCITY  DISTRIBUTION***) 

310  FORHATl// 34X,66H***INTERHF0IATE  VELOCITY  DISTRIBUTION  USING  LA6RAN 
IGIAN  FUNCTION***) 

320  F0RPaT!/F34X,65H***INTERNEDTATE  VELOCITY  DISTRIBUTION  USING  PARABO 
ILIC  FUNCTION***) 

400  FORHAT</irX,2( iqx, lHY,qX, lHU,qx,lHV>) 

410  FORt'AT(20X,2tl0X,3P10.6)) 

END 
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SUBROUTINE  AREL IXA ,XS,VBiOYa,DOYB, Jl 
C 

C THIS  SUBROUTINE  OETERHINES  THE  T COORDINATE  AND  ITS  FIRST  AND 
C SECOND  OERIYATIYES  AT  A POINT  ON  THE  AIRFOIL 
C 

CONHON/PTARFL/XX(40|2>  ,YY(AQ,2I  ,AH(i>0.2l  «CA  ,SA 

IF(XA.GE.l.a)  GO  TO  60 
DO  10  I>lt60 
IFIXA'XXt I,J>i  2a<20ti0 
10  CONTINUE 
XA  = 10000. 

RETURN 

20  IFd.GT.ll  GO  TO  30 
XA  = 0.001 
TAzO.OOl 
OTA  3 AM«1,J> 

OOTA  * l-4.»AM(l,J»-2.*AH<2,J»»6.*«YYC2,J)-YY(l,J)J/ 

1 (XX(2, JI-XX(1, J)l)/fXXI2,JI-XXtl,J> ) 

GO  TO  40 

30  H = XXlIi J)-XX(I~ltJ) 

X2NXA  * XXII,JJ-XA 
XAHXl  = XA-XX<I-1,J1 
TA  = AH(I-1, Jt •X2HXA*»2»XAMX1/H*»2 
YA  = YA-AMI1,J)»XAHX1»*2*X2NXA/H**2 
YA  = YA*YT<I-1,J)*X2HXA*»2»I2.*XAHX1  + H)/H»»3 
YA  = YA»YT<I,JI*XAMX1**2*(2.*X2HXA+H) /H*»3 
OTA  = ANTI-l, J»*X2NXA*<X2HXA-2. •XAHXl) /H»»2 
DTA  = 0TA-AH(I,J)*XAHX1*(2.*X2NXA-XAHX1)/H»»2 
OTA  = 0YA»6.»«YTa,J)-YY(l-l,JI)*X2HXA*XAHXl/H*»3 
OOTA  s -2.»AH(I-1,J)*(2.»X2HXA-XAHX1)/H*»2 
OOTA  = 00TA*2.»AHII,J)»I2.»XAHX1-X2HXA)/H*»2 
OOYA  = 0DYA*6.*<YY<I,J)-TY(I-1,J))»IX2MXA-XAHX1)/H»»3 
48  IF<J.EQ.2I  GO  TO  50 
XB  * XA*CA*YA»SA 
TB  = TA»CA-XA*SA 
0TB  = (0YA*CA-SA) /<CA»OYA*SA) 

00TB  = OOTA*ICA-OYB*SA)**3 
RETURN 

50  X3  = XA*CA-YA»SA 
TB  = YA*CA*XA*SA 
0TB  = (OYA*CA»SA)/(CA-OTA»SA) 

OOYB  = DOTAF(CA-SA*OYA)*»3 
RETURN 
60  XB  = 1.0 
Y8  = SAXCA 
OYB  = YB 
OOYB  = 0. 

RETURN 

END 
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SUBKOUTINE  LGRNGN  ( Al , A2 , A 3 1 A<«»  X 1 , XZ  • X 3 > X4 , X , A>4S ) 

FI  = X-Xl 

F2  * X*X2 

F3  = X-X3 

F4  = X-X4 

F12  » X1-X2 

F13  I X1-X3 

F14  = X1-X4 

F21  = X2-X1 

F23  =:  X2-X3 

F24  = XP-X4 

F31  = X3-X1 

F32  = X3-X2 

F34  = X3-X4 

F41  = X4-X1 

F42  = X4-X2 

F43  = X4-X3 

01  = Ft2»Fl3»Fl4 

02  = F21»F23»F24 

03  = F31»F32»F34 

04  = F41»F42»F43 
U1  = F2»F3»F4 

U2  = Fl»F3»F4 

U3  = F1»F2«F4 

U4  = Fl*F2»F3 

ANSI  = A1»U1/01*A2»U2/02 

ANS2  = A3*U3/03«-A4»U4/04 

ANS  = ANS1*ANS2 

RETURN 

END 


SUBROUTINE  A 1 SUB ( T 1 1 Y2 . UO , U1 , U2 , ANS ) 

FI  r Y2»Y2»U1 

F2  : ri*Yl*U2 

F3  = Y2»Y2-Y1»Y1 

F4  = Y2-Y1 

F5  = Y1»Y2 

ANSI  = Fl-F2-F3»UO 

ANS2  = F4»F5 

ANS  = ANS1/ANS2 

RETURN 

END 


SUBROUTINE  A2SU J ( Y 1 , Y 2 , UO , U1 , U2 , ANS ) 

FI  = -Y2*U1 

F2  = Y1*U2 

F3  = Y2-Y1 

F4  = Y1»Y2 

Ansi  = fi*F2*F3*uo 

ANS2  = F3*F4 

ANS  = ANS1/ANS2 

RETURN 

END 
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SUBROUTINE  OIST < M| I.H.OTl iOtfS,OVl» 

C 

C THIS  SUBROUTINd  'ERFORHS  A FLOH  INTEGRATION  STEP  ON  THE  STAGNATION 
C STREAHLINE  in  Tr : upstreah  solution 

5 C THIS  SUBROUTINE  INCLUDES  THE  EFFECTS  OF  THE  CROSS  VELOCITY  GRADIENT 

C tOVOOi  IN  OETERHINING  THE  FLON  CONDITIONS  FAR  UPSTREAH  FROH  THE  AIRFOIL 


C 


COHHON  C 

,CK 

,<s 

,FM 

(ALPHA 

CONHON/ACOH/X 

,XA 

,VN 

,VS 

.OY 

10 

1 ,YO  ,PO 

,RO 

,UO 

,vo 

,RNO 

,DUO 

2 ,Y(2,lQI,P(2fl0itR(2>ia>,U(2,10>,V(2,10),RH(2,10l,OU(2,10> 

CONHON/BCOH/  XO  ,OWOO  ,L 

COHHON/OCOH/  0RHU(2) ,OPRU(2> •DRUV(2> 

OIHENSION  ZVS(S> «ZY1(5> 

15  DATA  ZV1,ZVS,ZY1/  15»0.0  / 

J=2 

IFd.Ea.21  J=1 
DO  700  K=2,5 
RN  = {K-11/2 

20  RNH  = RN/2.»,H 

AYl  = Y0»H»2Y1(K-H»RNH 
AVS  = VS*ZVS(K-H»RNH 
AVI  = VO*H 

IF  (AVS  - AVil  200,  too,  100 
26  100  IF  (C  - AVS»»2)  200,  300,  300 

200  X = -1. 

RETURN 

300  ARl  = ((C  - AVS»»2  )/(C  - l.)l*»2.5 

API  = AR1»»1.4 

30  AUl  = SaRT(AVS»»2  - AV1*»2) 

AX  = X ♦ RNH 
• YIO  = AY1*Y(I,N) 

Y20  s Y(J,NI  +Y(I,N1 
Y21  = Y(J,N)-AY1 

35  YIOSO  * YIO’YIO 

Y20S0  = Y20»Y20 

YlOQU  = Y10SQ»Y10Sa 

Y20QU  = Y20SQ*Y20Sa 

OY  = -V(I,NI/U(I,N) 

40  OTl  = AVl/AUl 

0Y2  = V(J,NI7U<J,N» 

0 = Y10»Y20*Y21 

□ 0 = -Y21*(Y20  + T10)»DY  ♦ Y20* ( Y21-Y 10 1 *DY 1 ♦ Y 10» IT  2 !♦ Y 23 ) • QY 2 

EY2  = Y20SU-Y10Sa 

45  ALOC  = R(I,NI»U(I,N» 

ALOY  = -ALOC»V(I,NI 
ALIC  - AR1*AU1  - ALOC 
ALIY  = AR1*AU1»AV1  - ALOY 
AL2C  = R{ J,NI»U(J,NI  -AL3C 
50  AL2Y  = R(J,NI»U(J,NI*VIJ,N)  -ALOY 

AlC  = (ALlC*Y20Sa-AL2C*Y10SQ)/D 
AlY  = (AL1Y*Y20SQ-AL2Y»Y10SQ)/0 
A2C  = (AL2C»Y10  - ALlC*Y20)/0 
A2Y  = (AL2Y*Y10  - ALlY»Y20)/0 
55  FI  = Y10*(D-EY2*Yl072.*T10Sa»Y21/3.l 

F2  = Y10SQ*Y20»(Y20/2.-Y10/3.) 

FCl  = AL1C+2.»AL2C 
FC2  = Y20  -YlO/3. 

FC3  = AL1Y»2.*AL2Y 

60  FC4  = Y10/2.-Y20/3. 

FC5  = AL1C-AU2C 
FC6  = Y 10-Y?  /3. 

FC7  = AlC/2.cY20»A2C/3. 

FC8  = AL1Y-AL2Y 

65  FC9  = A1Y/2.*-Y20*A2Y/3. 

F3C  = -Y10QU»DRHU( J) /6. 

F3C  = F3C  ♦<-ALlC*U  + Y10Sa*(Y10»FCl/3.-Y20*ALlCI  1 *OY 
F3C  = F3C  -2.»AL2C*Y10S0*Y1073.*0Y1 
F3C  = F3C  ♦AL1C»Y10SQ»FC2»DY2 
70  F3C  = F3C  -Y10SQ»(AlC/2.+Y10*A2C/3.)»DD 
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F3C  = F3C  ♦(ARl*ftVl»ii<I,N»*W(I,NI  )»0 
F3Y  = -Y10QU»ORUV(  J) /6. 

F3Y  = F3Y  ♦t-ALlY»D  ♦ Y 1 OSU* ( Y10»FC3/ 3 . - Y20» &L lY » ) *□ Y 

F3Y  = F3Y  -2.»AL2Y»Y10SQ»Y10/3.»0Y1 

F3Y  = F3Y  »AL1Y*Y10SQ»FC2»DY2 

F3Y  = F3Y  -Y10SQ»(A1Y/2.*Y10»A2Y/3.)»00 

F3Y  = F3Y  ♦(CK*AP1*AR1»AV1»AV1-CK»P  (I  ,N)-R(  I,  Nl 'Wd  ,N)*V(  I,NI)  *Q 
FA  = Y20»(D  ♦ Y20*(-EY2/2.  ♦ Y20»Y21/3.)) 

F5  = Y20QU/6. 

F6C  = -Y13»Y20SQ»FC4»0RHU(J) 

F6C  = F6C  ♦ (-AL2C»0»Y20S3» (AL2C»YlO-AL lC»Y20*Y20»FC5/3. )» »0Y 
F6C  = F6C  -Y20ba»<AL2C»FC6»'lYl-2.»Y20»ALlC/3.*0Y2  + FC7*LJ0> 

FfaC  = FbC  ♦tRC J,N> »V( J,N) ♦RtI,N» *W( I,N) )»0 
F6Y  = -Y10»Y20SJ»FCA*ORUV ( J> 

FbY  = F6Y  ♦(-AL2Y»0  > Y20SU*  ( AL  2Y»  Y 10- AHY  • Y 20  + Y 20»  FC8 /3  . » ) • DY 
FbY  = FbY  -Y20SQ* ( AL2Y»FCb»0Yl  -2 . • Y20» AL 1 Y7 3 . • DY2»FG 9» DO ) 

FbY  = FbY  ♦(C<» (P ( J,N| -P (1 ,N) ) *R U , N ) • V t J , N) • V ( J , N » -R(I,N)* 

1 V (I  ,N)  (I  ,N)  I »0 

DEL  = F1»F5  - F2»F4 
E2  = F4»F3C  - Fl»FbC 
Eb  = FA»F3Y  - Fl»FbY 

2VS<K)  = OVOO*  < AX/XO)  »»L/ J AVS»»2*AR12  ( 1 ,4»CK»  API) -1 .) 

ZVKKI  = (Eb  -AV1»E2) /(AR1»A'J1»0EL) 

700  ZYKKI  = OYl 

OVS  = (ZVS(2)  ♦ 2.*(ZYS(3)  ♦ ZVS(A))  ♦ 2VS(5))/b. 

OVl  = <ZV1(2)  ♦ 2.*(ZV1(3)  ♦ ZV1(A»»  ♦ ZVl(5))/b. 

OYl  = (ZYK2)  ♦ 2.»(ZY1(3»  ♦ ZYK4))  f ZYl(5))/b. 

RETURN 

END 
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SUBROUTINE  STNRCN,r,Ot,OVS) 

c 

C THIS  SUBROUTINE  PERFORHS  4FL0M  INTEGRATION  STEP  ON  THE  STAGNATION 
C streamline  in  the  upstream  SOLUTION 

C THIS  SUBROUTINE  NEGLECTS  THE  EFFECTS  OF  CHANGES  IN  THE  VERTICAL 
C COMPONENT  OF  THE  STAGNATION  STREAMLINE  IN  THE  FLOW  INTEGRATION 
C 


COMMON  C 

,CK 

.RS 

,FM 

, ALPHA 

C0MM0N7AC0M/X 

,XA 

.VN 

.VS 

.H 

.OYl 

1 ,Y0  ,PO 

,RO 

,UO 

.VO 

,RMO 

. DUO 

2.  ,T(2,10I,P(2, 

lot ,R<2,10I 

,UI2,10) 

.VC2.10i 

.RM(2,10i 

.00(2.10) 

CONMON/OCOM/ 

ORHU(2} 

,OPRU<2> 

,DRUV(  2) 

QIHENSION  ZT(5) «ZVS(5> tZT<5> 

DATA  ZT,ZVS|ZT/15*0.0/ 

00  700  K=2|5 
RN  = (K-D/2 
RNH  = RN/2.*H 
AVS  = VS+ZVS(K-1)»RNH 
AT  = YO*ZT(<-ll  »RNH 
AT  = T ♦ZT<K-1)»RNH 
IF  <C  - AVS**2I  100,  300,  300 
100  X = -1. 

RETURN 


AR 

= (<C  - AVS* 

•2 

AP 

= AR 

4 

YIO 

= AY.YI2, 

N) 

Y20 

= Y (1  ,N)  . 

Y(2 

,N) 

ST  = 

: SIN(AT) 

CT  = COS(AT) 

OT  = 

: 3T/CT 

VNO 

= -U( 2,S) 

•ST 

- V(2,NI 

•CT 

VN2 

= -U(1,N) 

•ST 

♦ Vd.N) 

•CT 

VSO 

= U(2,Nt* 

CT 

-Vt2,N)* 

ST 

VS2 

= U(1,N)» 

CT 

♦ Vd.N)* 

ST 

CALL  A1SU3<Y10,Y20,  R < 2 , N) • VSO» VNO, 0 . 0 , R( 1 , N> *VS2» VN2 , A IRUV ) 

CALL  A2SU3(Y10,Y20,  R (2 ,N) • VSO» VND, 0 . 0 , R( 1 , N) • VS2» VN2 , A 2RUV» 

OVDY  =(A1RUV  ♦ 2.»A2RUW*T10»  / (AR  *AVS) 
call  A1SU3(Y10,Y20,p|2,N)  ,AP,P|  1,N)  ,A1P) 

CALL  A2SU3<Y10,T20,P(2,N) ,AP,P(1,N)  ,A2P) 

OPOT  = AlP  ♦ 2.»AEP*Y10 

ZVS(KI  = 0V0Y2  <AVS»AVS»AR/(1.4*C<*AP»-1.» 

ZT(K)  = CK7<AR»AVS*»2)*(0Y»  (-AR»AVS/C<»»ZVS(K) -(l.*OY**2l*OPDYI 
700  ZY(KI  = OY 


DVS 

= <ZVS(2)  ♦ 

2.*(ZVS(3) 

*■ 

ZVS (4) ) 

♦ ZVS(5))76 

OY 

= (ZT  (2)  ♦ 

2.*(ZY  (3) 

ZY 

(4)  > 

♦ ZY 

(5)  ) /6 

OT 

= (ZT  (2)  + 

2,*(ZT  (3) 

♦ 

ZT 

(4)  > 

♦ ZT 

(5t) 76 

X = 

X ♦ H 

VS  = 

VS  ♦ H'OVS 

YO  = 

YO*H*DY 

T = 

T ♦ H*OT 

UO  = 

VS*COS(T) 

VO  = 

VS*SIMTI 

RO  = 

((C-VS**2)7(C- 

-1.)  )**2.5 

PO  = 

RO** 1,4 

RHO=  VS/SaRT<1.4*CK»P07R0) 

RETURN 

END 
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20 


SUBROUTINE  LUNR I N, I » N , D VI . OVS , 0 VI ) 

C 

C THIS  SUBROUTINE  PERFORHS  A FLON  INTEGRATION  STEP  ON  THE  STAGNATION 
C STREAMLINE  IN  THE  UPSTREAM  SOLUTION 

c 


COMMON  C 

,CK 

,RS 

,FM 

, ALPHA 

CONMON7ACOM/X 

,XA 

,WN 

,VS 

,H 

,DY 

1 ,YO  ,PO 

,RO 

,UO 

,VO 

,RMO 

, OUO 

2 ,r(2,10)«P(2il0t|R<2«i0)tU<2,10>  fV(2,10)  tRM(2«10)(DU(2,10) 

COMMON/OCOM/  0RHU(2) ,OPRU(2l ,0RUV(2) 

DIMENSION  ZVS(5I  .ZV1(5I  ,ZYl(5i 
DATA  ZV1,ZVS|ZV1/15»0.0/ 

J = 2 

IFTI.EQ.2)  J*1 

DO  700  K=2,5 

RN  = (K-D/2 

RNH  = RN/2.*H 

AVI  = V0»M*ZY1 (<-ll»RNH 

AVS  = VS  *ZVS(  K-ll  »RNH 

AVI  = VO»H 

IF  (AVS  - AVU  200,  100,  100 
100  IF  (C  - AVS»»2)  200,  300,  300 

200  X = -1. 

RETURN 

300  ARl  = ((C  - AVS»»2  )/(C  - l.t)»»2.5 

API  = AR1»»1.4 
AUl  = SQRT(AVS»*2  - AV1*»2) 

YIO  = AY1«^Y(I,N» 

Y20  = Y ( J ,NI tY (I ,N( 

Y21  = Y(J,N)-AY1 
YIOSQ  = YIO’YIO 
Y20SQ  = Y20»Y20 
YIOGU  = Y10SQ*Y10SQ 
Y200U  = r20SQ»Y20SQ 
OY  = -V(I ,N»  7U (I ,N» 

OYl  = AVl/AUl 

0Y2  = V(J,NI/U(J,N) 

CT  = 1.0/3QHT(  1.  ♦ 3Y1»»2) 

ST  = 0Y1/SURT(1.  ♦ DY1»»2) 

VNO  = -U ( I,N) »ST-V <I,N»*CT 
VN2  = -U< J,N(*ST*V<J,N>»;T 
VSO  = U(I,N)*CT-V(I,N(»ST 
VS2  = U ( J,NI  •CT  + V (J,N>  *ST 

call  A1SU5(Y10,Y20,  R ( I ,N ) * VSO» VNO, 0 . 0 , K( J , N» »V S2» VN2 , A IRUV » 

CALL  A2SUd(Y10,Y20,  R ( I , N» » VSO» VNO, 0 . 0 , R( J , N) ♦ V S2* V N2 , A2RUV ) 

OVOY  =(A1KUV  f 2.»A2RUV»Y10»  / (ARl'AVS) 

0 = Y10»Y20»Y21 

00  = -Y21*(Y20*Y10I »OY  ♦ Y20» ( Y2 1-Y 10 ) » DY 1 » Y 10* ( Y 2 !♦ Y 20 ) • DY 2 

EY2  = Y20SQ-Y10SQ 
ALOL  = R(I,N)»U(I,N) 

ALOY  = -ALOC»V(I,N) 

ALIC  = AR1»AU1  - ALOC 
ALIY  = AR1»AU1’AV1  - ALOY 
ALZC  = R(  J,N)*UtJ,N)  -ALOC 
AL2Y  = R(  J,NI»U(J,N)*V(J,N)  -ALOY 
AlC  = ( AL  lC»Y20S0-ALZr*Y10S J) /O 
AlY  = (Al  1Y»Y20SO-Al2Y»Y10SQ) /O 
AZC  = (ALZC»Y10  - AL1C*YZ0)/'J 
A2Y  = (ALZY'YIO  - ALIY’YZO)/) 

FI  = Y10»(0-EY2*Y10/Z.yY10SQ»YZ1/3.» 

F2  = Y10SQ*Y20*(YZ072.-Y10/3.) 

FCl  = AL10»2.»ALZC 
FCZ  = Y20  -YlO/3. 

FC3  = AL1Y*2.»ALZY 
FCL  = Y10/2.-Y20/3. 

FC5  = AL1C-AL2C 
FC6  = Y10-Y20/3. 

FC7  = AlC/Z.*YZO*AZC/3. 

FC3  = ALIY-ALZY 

FC9  = AlY /Z. ♦YZ0»AZY/3. 
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F3C  » -Y10QU»DRHU<J»/6. 

F3C  = '■3C  ♦(-ALlC»0*T10Sa*<tlO*FCl/5.-Y20*»LlC)»»OY 
F3C  = F3C  -2.*AL2C*Y10SQ*Y10/3.*0Y1 
F3C  * FJC  ♦ALlC*Y105a*FC2»DY2 
Y5  F3C  * F3C  -Y10SQ»CA1C/2.»Y10*A2C/3.I»OD 

F3C  > F3C  *(ARl»AVt«RII>NI*V(I»N) 1*0 
F3Y  = -Y10QU*0RUY«JI/6. 

F3Y  * F3Y  AI-ALIY^O  ♦ YIOSQ* 1 Y10*FC3/3 . - Y20» AL 1Y » ) *DY 
F3Y  * F3Y  -2.*AU2Y*Y10SQ*Y10/3.*DY1 
Sg  F3Y  « F3Y  *ALlY*Yi0SQ»FC2*0Y2 

F3Y  a F3Y  -Y10SQ»«A1Y/2.*Y10»A2Y/3. »»0D 

F3Y  * F3Y  ♦ICK»AP1*AR1*AY1*AV1-CK»P{I|N)-RII,N>»V«I,M»»V<I,NI)»0 
F<*  = Y20*(0  * V20»l-EY2/2.  ♦ Y20»Y21F3.M 
F5  * Y20QU/6. 

BS  F6C  = -Y10*Y20SQ»FC4*ORHU< J» 

F6C  * F6C  *(-AL2C»0*Y20Sa»<AL2C»Y10-ALlC»Y20»Y20«FC6/3.))»0Y 
F6C  = F6C  -Y20SQ»<AL2C*FC6»JYl-2.*y20»ALlC/3.*aY2»FCF»0D» 

F6C  = F6C  ♦<<(  J,NI*YtJ,N)  ♦Rtl.N)  *YCI,N)  )»0 
F6Y  = -V10»Y20SQ»FC4»0RUV(J» 

90  F6Y  = F6Y  ♦<-AL2Y»Q  ♦ Y20SU* I AL2Y* Y 10- AL 1Y*Y 20+Y 20»FCB /3 . ) ) * OY 

FbY  = F6Y  -Y20SQ*<AL2Y»FC6»DY1  -2 .* Y20* AL 1 Y /3 . *0 Y2*FC 9»D0 ) 

F6Y  = F6Y  KCK»<P<J,N)-P(1|NJ)  «R  ( J , N ) • V(  J , N)  • V ( J,  N)  -rtCIiNI* 

1 Y(I,NI»V(I.N))»D 

DEL  = F1»F5  - F2»F4 

95  400  E2  i F4»F3C  - F1»F6C 

£6  = F4»F3Y  - F1»F6Y 

ZVS(K»  = DV0Y/(AYS»*2»AR1/(1.4*CK»AP1) -1.) 

ZVKKI  = <£6-AVl»E2l /<AR1*AU1*0EL) 

ZOO  ZYl(K)  = OYl 

100  OWS  = (ZVS(2»  ♦ 2.»«ZYS<3)  » ZtfS(4>l  ♦ ZVS(5l>/6. 

nvi  = (ZVK2I  ♦ 2.»(ZYH3»  ♦ ZVt(4J)  ♦ ZVl(5»>/6. 

OYl  = (ZYK2)  ♦ 2.»<ZY1I3)  ♦ ZY1(4)»  ♦ ZYl(5n/6. 

RETURN 

END 
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TO 


SUBROUTINE  OUNS(M,I> 

C THIS  SUBROUTINE  PERFORMS  A FLON  INTEGRATION  STEP  ON  THE  NtXT  TO  THE 
C OUTERMOST  STREAMLINE 

COMMON  C tCK  fRS  »'’M  , ALPHA 

COMMON/ ACOM/X  |XA  ,VN  ,ITS  ,H  » OT 

1 YO  |P0  iRO  »UO  »WO  »RMO  j DUO 

2 ,T«2|10),P(2«10»*R<2.10»  *0(2i1i1)  «V(2i10)  ,RM(2»10»iOU <2,101 

COMMON/OCOM/  ORHU( 21 ,QPRU(2) ,DRUVt  2) 

OIMENSION  2UK5)  ,ZW1I5)  ,2T1(5I  , ZRHU 1 5 » , ZPRU(5  ) , ZRUV  ( 5» 

OATA  ZUl.ZVl.ZYl/  15»0.0  / 

Y20  = r<I,l)  -YO*M 

Y20SQ  = Y20»Y20 

Y20QU  = Y2OS0»Y2OSQ 

OY  = M»VO/UO 

ALOC  = RO»  UO 

ALOX  i CX*  PO  + ALOC*  UO 

AlOY  = M»ALOC»VO 

AL2C  = 1.  - ALOC 

AL2X  = CK  ♦ 1.  * ALOX 

AL2Y  = - ALOY 

00  700  K=2,5 

RN  = (X-1) /2 

RNH  = RN/2.»H 

AYl  = Y ( I ,21  ♦ZYl  (K-1)  *RNH 

AUl  = U(  1 ,2)  yZUKK-I)  *RNH 

AWl  = Y (I ,2) yZV1<K-11 *RNH 

IF  (C  - AUl'AUl  * AV1»AV1(  100,  300,  300 

100  X * -1. 

RETURN 

300  ARI  s <(C  - AUl'AUl  - AV1»AV1)/<C  - l.»»»*2.6 
API  = ARl»»l.L 
YIO  s AYl  -YO»M 
Y21  = Y(I,1I-AY1 
YIOSQ  = Y10»Y10 
OYl  = AVl/AUl 
0 = Y10»Y20»Y21 

UO  = -Y21»<Y20+Y10)*0Y  ♦ Y20» ( Y 2 1-Y 10) • DY 1 

EY2  = Y20SQ-Y10SQ 

ALIC  = ARl’AUl  - ALOC 

ALIX  s CK»AP1  ♦ AR1»AU1*AU1  - ALOX 

ALIY  = AR1*AU1»AV1  - ALOY 

AlC  = <AL1C*Y20SU-AL2C»YIOSQ)/0 

AIX  = (AL1X»Y20SQ-AL2X*Y10SQ)/0 

AlY  = (AL1Y»Y20SQ-AL2Y»Y10SQ)/0 

A2C  = (AL2C»Y10  - ALlC»Y20)/0 

A2X  = (ALZX'YIO  - AL1X»Y20)/J 

A2Y  = (AL2Y»Y10  - AL1Y*Y20»/0 

FI  = riO*<0-EY2»Y1072.»Y10SQ*Y21/3.) 

F2  = Y10SU*Y20» <Y20/2.-Y10/3. » 

FCl  = AL1C+2.»AL2C 
FC3  = AL1Y»2.*AL2Y 
FC5  = AL1C-AL2C 
FC6  = Y10-Y20/3. 

FC7  = AlC/2.  H20»A2C/3. 

FC8  = AL1Y-AL2Y 

FCg  = A1Y/2.+Y20*A2Y/3. 

FCA  = AL1X*2.»AL2X 
FCO  = A1X/2.*Y10»A2X/3. 

FCr  = AL1X-AL2X 

FCO  = AlX/2. YYZO’AEX/S. 

F3C  = (-ALlC*OtYlOSO»<Y10»FCl/3.-Y20»ALlC) ) *OY 
F3C  = F3C  -2.»AL2C»Y10SQ»Y10/3.»0Y1 
F3C  = F3C  -YinS3»<AlC/2.+Y10»A2C/3.t»00 
F3C  = F3C  ♦(A-<l»AVl-RO»VO»M)*D 

F3X  = ( - ALlX»i)»YlOSO»  ( Y l0*FCA/3.-Y20»  AL  IX  » ) 'QY 
F3X  = F3X  -2.*AL2X»Y1053'Y10/3.*0Y1 
F3X  = F3X  -Y10S0»FC3»DD*AL1Y»0 

F3Y  = (-AU1Y»JYY10S1» (Y10»FC3/3.-Y20* ALIY) ) 'OY 


1^1  8 


F3V  ■ F3T  -Z.»*L2Y*T10Sa»»10/3.*0Tl 

FIT  » F3T  -T10SQ*«*1Y/2.»»10*«2Y/3.)»D0 

F3Y  » F3Y  HCK**P1»A«1»»Y1»»V1-CK»P0-R0*Y0» Y0»»0 

F4  « Y20*(0  ♦ Y20»<-EY2/2.  ♦ Y20*Y2i/3.l) 

7S  F5  X Y20QU/6. 

F6C  » <-*L2C»0*Y20SQ*»AL2C»Y10-»LlC»Y20»Y23»FC5F3.n»DY 
F6C  = F6C  -Y20SQ»CAL2C*FC6»0Yl*FCr*DD) 

F6C  » F6C  -ft0*V0»«»0 

F6X  » (-AL2X»0  + Y20Sa*  (AL2X»Y10-ALlX*Y20*Y20*Fi;C/3.)  »»0Y 
M F6X  = F6X  -Y20SQ»(AL2X»FS6*OY1»FCO*DO» ♦AL2Y*D 

F6Y  = «-AL2Y»0*Y20SQ»«AL2Y»Y10-AL1Y*Y20+Y20*FC8/3.) )»DY 
F6Y  ■ F6Y  -Y20SQ*(AL2Y*F36»0Y1»FC9»QD» 

F6Y  * F6Y  ♦(CK»«1.-P0)  -^0*VO*VO)»D 
DEL  * F1*F5  - F2»F4 

S5  E2  « F4»F3C  - F1»F6C 

E4  = F4»F3X  - F1»F6X 
E6  = F4»F3Y  - F1*F6T 

GDI  = DEL»(1.4»CK*APl/4-U  - AUl'AUll 

ZUKKI  = {(CK»1.4»AP1/A((1  ♦AUl»AUl»*-2  -AU1»£  4)  / <AR  !•  C01> 
90  ZVIIKI  = (E6  -AY1»E2I /<  AR1»AU1»DEU 

2RHU(K)=  E2/0EL 
ZPRU(K»=  £4/OEL 
2RUV(K»=  E6/0EL 
20  0 ZYKK)  = QYl 

95  JYl  = (ZVK2I  ♦ 2.»(ZYH3I  ♦ ZV1I4))  ♦ 2Vl(5))/6. 

DYl  = <ZYH2)  ♦ 2.»(2Y1(3I  ♦ ZY1(4>)  ♦ ZYl(5>)/6. 
OU(I,2)  = (ZUl(2t »2.*(ZU1(3)42U1 (41 ) »ZU1 (51 ) 26. 

ORHUdI  = (ZRHU(2I  »2.*  (ZRrtO(3>»ZRHU(4>  ) »ZRriJ(5tl  /6. 

OPRU(I) = (ZPRU(2) *2.* (ZPRO(3) »ZPRU( 41 ) ♦ZPRJ(5)> /6. 

100  ORUV(I»=  (ZRUV(2)*2.»(ZRJV(3»fZRUV(4)  M-ZRUY(5)>/6. 

U(I,2)  = U(I,2)  ♦H*0U(I,2) 

y(I,21  = V(I,2)  tH’OVl 

Yd, 2)  s Y(I,2)  ♦H»0Y1 

YSQ  = 0(I,2I»U(I,2MY(I,2)*V(I,2) 

105  R(I,2)  = ((C-VSai2(C-l.»)»»2.5 

P(I,2)  = R(I,2)»*1.4 

RM(I,2>  * SQRT(VSQ»RtI,2)/(1.4»CK*P(I,2>)) 

RETURN 

END 
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40 

50 

60 

SO 

90 

too 

ISO 

220 


300 


COMMON 

C 

,CK 

,RS 

,FM 

, ALPHA 

COMMON/ACOM/X 

,XA 

,YN 

,YS 

,OY 

1 ,YO 

,PO 

,RO 

,UO 

,vo 

,RMO 

,OUO 

2 ,Y(2,10) 

,P(2, 

10) ,R(2,10) 

,U(2,tO> 

,V(2,10) 

,RM(2, 101 

, 0U(2 

COMMON/OCOM/CS 

,cz 

,UV1 

,31 

,031 

,RK 

1 ,VOO  iISKIP 

COMMON/OCOM/  ORHU( 2) ,UPRUt  2> ,ORUR( 21 

DIMENSION  ZUK5)  ,2VH5»  ,ZTlt5»  , ZRHU  ( 5)  , ZPRU 1 5 ) , ZRUV(  5 ) 

DIMENSION  ZUO<5) ,ZV0(5I 
DATA  ZUO,E1,£3,E5/8»0.07 
DATA  ZU1,ZV1,ZT1/  15*0.0  / 

Y20  = T ( I ,N-1)  -YO*M 

Y20SQ  = Y20*Y20 

Y20GU  = Y20SQ*Y20SQ 

00  700  K=2,5 

RN  = (K-11/2 

RNH  = RN/2.*H 

IF(N.E3.IJ)  GO  TO  40 

AUO  = UO 

AYO  = VO*M 

ARO  = RO 

APO  = PO 

GO  TO  220 

AUO  = JO*ZUO(K-l)*RNH 
GO  TO  (50,60,801 ,ISKIP 
AVO  = VOO»EXP( < l.-XI *RK» 

GO  TO  90 
AVO  = AUO’OY 
GO  TO  90 
CONTINUE 

AVO  = VO  *ZVO  ( K-11  *RNH 
CONT INUE 

IF (C- AUO* AUO -A VO* A VO)  100,180,180 
X = -1. 

RETURN 

ARO  = < (CZ-AUO*AUO-AVO*AVO) 7(CS* (C-1. ) ) )»*2.5 

APO  = AR0**1.4*CS 

AYl  = Y(I,N)  *ZY1  (K-1)  *RNH 

AUl  = U(I,NI*ZU1(K-1)*RNH 

AVI  = V ( I ,N)  *ZVl(K-lt  *RNH 

IF  (C  - AU1*AU1  - AV1*AV1)  100,  300,  300 

ARl  = ((C  - AU1*AU1  - AV1*AV1)/(C  - l.)l*»2.5 

API  = AR1»*1.4 

YIU  = AY1-Y0*M 

Y21  = Y (I ,N-1) -AYl 

YIOSO  = Y10*Y10 

YIOOU  = Y10SQ*Y10SQ 

OY  = AV07AUO 

OYl  = AVl/AUl 

0Y2  = V ( I ,N-1)  /U(  I ,N-1) 

D = Y10*Y20*Y21 

DO  -Y21*(Y20*Y10I*0Y  ♦ Y20*  ( Y21-Y  10)  * DY  1 * T 10*  < Y 2 1*Y  23  ) • UY  2 

EY2  = Y203Q-Y10SQ 

ALOC:  =AR0*AU0 

ALOX  =CK* APOtALOC* AUO 

ALOY  = AL0C*AV0 

ALIC  = AR1*AU1  - ALOC 

ALIX  : CK*AP1  + AR1*AU1*AU1  - ALOX 

ALIY  = AR1»AU1*AV1  - ALOY 

AL2C=  R(  I ,N-1)  *U(  I ,N-1)  -ALOC 

AL2X=  CK*P(I,N-1)  *R(I,N-l)*U(I,N-l)*U(l,N-l)  -ALOX 
AL2Y=  R( I ,N-1) *U( I ,N-1) *V ( I,N-1)  -ALOY 
AlC  = (AL 1C*Y2US9-AL2C»Y10SQ) /O 
AIX  = ( AL  1X*Y20S3-AL2X*Y10SQ) /D 
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rs 


• 0 
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90 
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100 


105 


110 


115 
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130 
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*1T  « l»LlY*Y20Sa-AL2Y*Y10Sm /O 

*2C  * «*L2C*Y10  - *L1C*Y20)/D 

*2X  ■ <»U2X*Y10  - »L1X»Y20)/0 

*2Y  « <AL2Y*Y10  - ALlY*Y20»/0 

FI  * Y10*ID-EY2»Y10/2.»Y10SQ*Y21/3.» 

F2  * Y10SQ»Y20*IY20/2.-riO/3.» 

FCl  * AL1C»2.*AL2C 

FC2  * Y20  -YlO/3. 

FC3  » AL1Y*2.»AL2Y 

FC4  * Y10/2.-Y20/3. 

FC5  » AL1C-AL2C 

FC6  « T10-Y20/3. 

FCr  = AlC/2.*Y20»A2C/3. 

FC8  * AL1Y-AL2Y 

FC9  = A1Y/2.4Y20»A2Y/3. 

FCA  = AL1X*2.»AL2X 

FC0  = AlX/2.*Y10»A2X/3. 

FCC  = AL1X-AL2X 

FCO  = AlX/2.»Y20»A2X/3. 

F3C  = -Y10QU»OKHU(II/6. 

F3C  = F3C  ♦(-AL1C»0»Y10SQ*(Y10*FC1/3.-Y23*AL1C» )*OY 

F3C  = F3C  -2.»AL2C»Y10SU»Y10/3.»OYl 

F3C  = F3C  ♦ALlC»Y10Sa»FC2»0Y2 

F3C  = F3C  -Y10SQ*(A1C/2.»Y10*A2C/3.)»D0 

F3C  = F3C»(A(U*AV1-A<0»AV0)»D 

F3X  = -Y10QU»3P9U(I»/6. 

F3X  = F3X  ♦{-ALlX*B*Y10Sa*(Y10»FCAFJ.-Y2D»ALlXI  ) *OY 

F3X  = F3X  -2.» AL2X»Y10SQ»Y10/3.»OY1 

F3X  = F3X  ♦AL1X»Y10SQ»FC2*0Y2 

F3X  = F3X  -Y10S'I»FCB»00+AL1Y»D 

F3Y  = -Y10QU»QRUY(I»/6. 

F3Y  = F3Y  ♦J-AL1Y»0  ♦ Y105Q* « Y 10»FC3/3 . - Y20» At lY ) » *OY 

F3Y  = F3Y  -2.*AL2Y»Y10SQ»Y10/3.»DY1 

F3Y  s F3Y  ♦ALlY*Y10Sa»FC2*0Y2 

F3Y  = F3Y  -Y10Si3*<AlY/2.«-Y10*A2Y/3.  >»D0 

F3Y  = F3Y*«CK*APl*ARl*AVl»Ayi-CK»APO-ARO»AYO»AVO>*D 

F4  = Y20»(0  ♦ Y20*(-£Y2/2.  ♦ Y20*Y21/3.M 

F5  = Y20QUF6. 

F6C  = -Y10*Y20SQ*FC4»ORHU<I» 

F6C  = F6C  ♦<-AL2C*0+Y20Sa*(AL2C*Y10-ALlC»Y20»Y20*FC5F3.)»»DY 

F6C  = F6C  -Y20Sa*<AL2C»F:6»OYl-2,*Y20»ALlCF3.*OY2»FCr»DO» 

F6C  = F6C4«R<I,N-l»*YCI,N-lt-ARO*AVO»»!3 

F6X  = -Y10*Y20Sa»FC4»DPPU(H 

FbX  = F6X  ♦(-AL2X»J»Y20Sa*(AL2X*Y10-ALlX»Y20+Y20*FCC/3.)»»DY 

F6X  = F6X-Y20SQ»(AL2X*FC6*0Yl-2.*Y20*ALlX/3.»DY2»FCD»00»«-AL2Y*a 
F6Y  = -Y10*Y20Sa*FC4*0«UY (U 

FbY  = F6Y  ♦<-AL2Y»0  ♦ Y20SU* « AL2Y» YIO- AL 1Y*Y 20 *Y 20*FCB /3 . » ) * DY 
FbY  = FbY  -Y20SQ*<AL2Y*F36»DY1  -2. » Y20» AL lY/3 . *0Y24FC9»U0 1 
FbY  =FbY4(CK*(P(I,N-ll-AP0) I , N-1 ) » V 1 1, N- 1) * V ( I , N-1 ) 
l-ARC*AVO»AVO»»D 
DEL  = F1*F5  - F2»F4 
IFih.LT.IJ.OR.IJ.LE.l)  GO  TO  400 
390  El  = F2»F5C-F5»P3C 
E3  = F2»FbX-F5*F3X 
E5  = F2*F6Y-F5*F3Y 
ZVO(K)  = (E5-AV0»E1)/(AR3»AU0»0EL) 

COO  = del* (1.4»CK*AP0/AR0-A00»AU0» 

ZUO(K)  = (<CK*1.4*APO/ARO*AUO*AUO)*E1-AUO*E3)F(ARO*CDO) 

400  E2  = Fi**F3C  - Fl*FbC 
E4  = F4*F3X  - Fl'FbX 
E6  = F4*F3Y  - Fl*FbY 

COl  = OEL*  (1.4»CK*AP1/4R1  - AUt'A'Jl) 

ZRHU(K)=  E2/OEL 
ZPKU(K)=  E4/0EL 
Z«UV(K) = Eb/DEL 

ZU1(K»  = ( (CK’l.L’AOl/ARl  440 1*  A J 1»  *E  2 -AUl  *£  4)  / ( AR  1»  C01» 

ZVl(K)  = (Eb-AV1*E2)F(AK1*AJ1*0EL) 

70  3 ZYKK)  = JYl 

OVl  = (ZVK2I  ♦ Z.*(ZV1(3I  4 zyi(4))  4 ZVl(5))/b. 

OYl  = (ZYK2)  4 2.*(ZY1(3»  4 ZYKAM  4 ZYl(5)»/b. 


151 


11*5 


isa 


155 


160 


165 


170 


175 


100 


DU(1>NI  z (ZU1(2|4’?.*I7U1<3»  *ZU1  (4  1 ) *ZU1  (51  ) 76. 
IF(IJ.LE.1>  go  to  704 
IFdSKlP.EQ.l)  GO  TO  710 

704  DKHUdM  ( ZKHU  ( 21  4 2.  • ( ZRHU(  3)  *ZRHU  ( 4)1  * ZRH J ( 51 ) 76. 
OPRU(I) * (ZPRU (21 42.*  <ZPRU(3) 4ZPRU( 4) ) 4ZPRJ (5) ) 76. 
ORUV(I)  * (ZRUV(2)  4 2.*(ZROV(  3)  4ZRUW(4)  ( *ZRUV(5))  7 6. 
IF(N. LT.IJ.OR.IJ.LE.il  GO  TO  720 

00  705  K*l,25 
XA  = XA4H*0.05 

CALL  ARFL(XA,XB,TO,OY,OUH,I) 

IFIXB.GT.XI  GO  TO  710 

705  CONTINUE 

710  DUO  * (ZUO(2) 42. •( ZJO(3> 47U0(4)I  *ZUO( 51)76. 

UO  = U04H*0U0 

GO  TO  (714,715,716),ISKIP 

714  VO  = VOO*EXP(( l.-XI *RK) 

TO  * Y04H*VO/UO 

GO  TO  718 

715  VO  = UO*OY 
GO  TO  718 

716  OVO  = (ZVO(2l  42.»(ZV0(3)4ZV0(4) ) *ZV0(5( )76. 

VO  = VO*H*OVO 

VSQ  = UO»UO*VO»VO 
. UO  = SORT (VSJ7 ( 1. 4DY*0Y) ) 

V'O  : UO*OY 

718  VSQ  = UO*UO*VO*VO 

RO  = ((CZ-V5Q(7(CS*(C-1.> n**2.5 
PO  = CS*R0**1.4 
RRO  = SQRT(RO*VSJ/(1.4*C<*POM 
720  U(I,N)  = U(I ,N) 4H*0U(I,N) 

V(I,N)  = V(I,N)4H*0V1 
Y(I,N)  = Y(I,N)*H*0Y1 
VSQ  = J(I ,N) *U (I,N) *V(I ,N) *V(I ,N) 

R(  I,N)  = ( (C-VSQ)  7(0-1.) ) *»2.5 
P(I,N)  = R(I,NI**1.4 

RM  (I,NI = SQRT(VSQ*R(I,N)/(1.4*CK*o(I,N))) 

01  = S3RT  (VSQ) 

OQl  = (U ( I,NI »DU(I ,N) 4V(I ,N)»nVl) 701 

RE  TURN 

ENO 
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TO 


COMMON  C 

,C<  ,RS 

,FM 

, ALPHA 

COMMON/ACOM/X 

,XA  ,YN 

,vr. 

fOY 

1 ,Y0  ,PO 

,RO  ,UO 

,vo 

,RMO 

• DUO 

2 |T(2,10I,P(2, 

10) ,R(2,1U) ,U(2,10I 

,V(2,1U> 

,RM(2, 

101 , out; 

COHHON/CCOH/Xa 

,YB  ,OYB 

,DOYB 

• DUB 

,P3 

1 |UB  ,RMQ 

,03  ,HS 

• CRA 

COMMON/OCOM/ 

0RMUI2) ,0PRU(2I 

,0RUV<2) 

DIMENSION  ZU1(5I 

• ZVK5),  ZY115),  ZVS(5),  ZVN(5I, 

ZB  (5) 

DATA  ZUl.ZVl.ZVS 

,ZVN,ZUB,Zii,ZYl/35* 

0.0/ 

100 


CT  * l./SQRT(l.  ♦ 0TB*»2) 

ST  = UT9*CT 

RABO=  A8S(l./ICT»»3»30t9n 

00  700  K = 2,  5 

RN=1.Q 

IF<K.EQ.2)  RN=0.0 

IF(K.£Q.5)  RN'2.0 

RNH  = RN/2.»H 

AYl  = rCl|NI*2Yl(K-l)»RNH 

AUl  = U<I,NJ*ZUi(K-ll»RNH 

AYl  = V1I,NI»2V1<K*1»*RNH 

C - AUl'AUl  - AYl’AVl)  100,  300,  300 

2.0 


IF  ( 
RMB 
RETURN 


300 

ARl 

= 

API 

2 

ays 

s 

AYN 

S 

AUO 

= 

AVO 

= 

IF 

<c 

40  0 

ARO 

= 

APO 

a 

AU8 

a 

IF 

<c 

((C  - AU1« 
AR1»»1.1» 


AUl  - AY1»AV1(/CC  - l.n»»2.5 


AVS’ST  ♦ AVN*CT 

- AU0»*2  - AV0*»2)  100,  400,  400 

<(C  - AUO’AUO  - AWO»AVO)T(C  - l.l)*»2.5 


AUB»*2)  100,  500,  500 


40 

500  ARB 

= ( (C  - AUB»AUB 

APS 

= AR0*»1.4 

B 

= 03  ♦ZS(K-1)*RNH*HS/H 

RAP 

s RA8048*CRA 

AYO 

= YB  ♦B’CT 

45 

YIO 

= AYl  -AYO 

Y20 

= Y(I,N-1)-AY0 

Y21 

= YCI,N-1)-AY1 

OY  = 

: AVO/AUO 

OYl 

= AVl/AUl 

50 

OY2 

= Y(I,N-1»/U(I,N-1» 

n = 

Y10*Y20*Y21 

) /(C  - 1.) )»»2.5 


YIOSU  = 
Y20SQ  = 
YIOOU  = 
Y20CU  = 


Y10»Y10 

Y20»Y20 

Y10SQ*Y10SQ 

Y20SU»Y20SQ 


Y20»  (Y21-Y10)  ’OYl 


on  = -Y21*(Y20+Y10) »0Y 
EY2  = Y20SQ-Y10SQ 
ALOC  = ARO'AUO 
ALOX  = CK*APO  ♦ ALOC'AUO 
ALOY  = ALOC'AVO 
ALIC  = ARl’AUl  - ALOC 
ALIX  = CK’APl  ♦ AR1»AU1»AU1  - ALOX 
ALIY  = AR1»AU1*AV1  - ALOY 

AL-2C  = «(I,N-1»»U(I,N-1)  -ALOC 
AL2X  = CK»P(I,N-1)  ♦R(I,N-1)»U(1,N-1)»U(I,N-1)  -ALOX 
Al2Y  = R(  I,N-l)*U(I,N-l)»YtI,N-l)  -ALOY 
AlC  = (AL1C*Y20SQ-AL2C»Y10S0)/D 
AlX  = (AL1X»Y20SQ-AL2X»Y10SQ1 /□ 

AIY  = (ALlY*Y20Sa-AL2Y»Y10SO)/0 
A2C  = (AL2C*Y10  - ALlC*Y20)/0 


♦ Y10»  {Y21*Y20)»DY2 


153 


rs 


so 


as 


90 


95 


100 


105 


110 


115 


120 


125 


130 


135 


1<«0 


A2X  * (AL2X*Y10  - ALlX»¥20)/0 
A2V  * IAL2¥»Y10  - AL1V*Y20»/0 
FI  = Y10*<D-EY2*Y10/2.*T10SQ*Y21/3.) 

F2  = Y10SQ»Y20»(Y20/2.-Y10/3.) 

FCl  = AL1C*2.»AL2C 
FC2  = Y20  -YlQ/3. 

FC3  X AL1Y»2.»AL2Y 
FC4  X Y10/2.-Y20/3. 

FC5  X AL1C-AL2C 
FC6  X Y10-Y20/3. 

FC7  X AlC/2.»Y20»A2C/3. 

FC8  X AL1Y-AL2Y 

FC9  X AlY/2. ♦Y20»A2Y/3. 

FCA  X AL1X»2.*AL2X 
FCR  X A1X/Z.»Y10»A2X/3. 

FCC  X AL1X-AL2X 

FCD  X AlX/2.»Y20»A2X/3. 

F3C  X -Y10QU»0kHU(I>/6. 

F3C  X F3C  ♦(-ALlC»0*Y10SQ»(Y10»FCl/3.-Y20»ALlC) I*0Y 

F3C  X F3C  -2.*AL2C»Y10SQ»Y10/3.»DY1 

F3C  X F3C  ♦ALlC»Y10Sa»FC2*DY2 

F3C  X F3C  -Y10SQ»(A1C/2.*Y10»A2C/3. )*D0 

F3C  X F3C  ♦(ARl»AVl-AkO»AVO»»0 

F3X  X -YlQQU*0PRU(I)/6. 

F3X  X F3X  ♦(-ALlX»0*Y10Sa*(Y10»FCA/3.-Y2D»ALlX) )»QY 

F3X  X F3X  -2.*AL2X»Y10SQ»Y10/3.»DY1 

FJX  X F3X  ♦ALlX»Y10Sa»FC2»0Y2 

F3X  X F3X  -Y10SQ»FC1»U0*ALlY»n 

F3Y  X -Y10QU»0R'JV(II/6. 

F3Y  X F3Y  *(-AL1Y*0  ♦ YIOSQ* ( Y 10»FC 3 /3 . - Y20» AL 1Y » ) »DY 

F3Y  X F3Y  -2.* AL2Y»Y10SJ»Y10/3.»DY1 

F3Y  X F3Y  ♦AU1Y*Y10SQ»FC2*OY2 

F3Y  X F3Y  -Y10SQ»(A1Y/2.*Y10»A2Y2J.)»00 

F3Y  X F3Y  +(CK*AP1+AR1*AY1»AV1-CK»APO-ARO»AVO»AVO) »D 

F4  X Y20»(0  ♦ Y20»C-£Y2/2.  ♦ Y20»Y21/3.I> 

F5  X Y20'1U/6. 

F6C  X -Y10»Y20SQ»FC4»CRHJ(I» 

F6C  X F6C  ♦(-Al2C*D*Y20S9* (AL2C»Y10-AL 1C»Y20+Y20»FC5Y3. ) > *OY 

F6C  X F6C  -Y20SQ*  (AL2C»FC6*JY1-2.»Y20»AL1C23.»0Y2*FC7xi)U) 

F6C  X F6C  ♦(<(!, N-ll»W(I,N-l)-ARO»AVO)»0 
F6X  X -Y10»Y20SQ*FC4»DPi<U(I> 

FoX  X F6X  ♦(-AL2X»0*Y20SJ*  ( AL2X»Y10-AL  1X*Y20«-Y20»FCC7  3.  » ) »DY 
F6X  X F6X-Y20SQ*(AL2X*FCo*l)Y1-2.*Y20»AL1X/3.»DY2*FCD'DD)*AL2Y»3 

F6Y  X -Y10»Y20SQ»FC4»ORUV(I» 

F6Y  X F6Y  ♦■(-AL2Y*0  ♦ Y203  Q' ( AL  2Y»  Y 10- AL  1Y  • Y 20*Y  20»FC8 /3  . » » » DY 
FbY  X F6Y  -Y20SQ*(AL2Y*FC6»0Y1  -2  . • Y20»  AL  1 Y / 3 .*  Q Y 2 + Fi;  9»  00  ) 

FbY  X F6YKCK*  <P(I  ,f4-l) -APOH-R(I,N-l)  »V  (I  ,N-1)»  V (I.N-ll 
i-ARO»AVO» AVOt  »D 
DFL  X F1*F5  - F2*F4 
El  X F2*FbC  - F5*F3C 

E2  X F4»F3C  - F1*F6C 

E3  X F2»FoX  - F5*F3X 

= F4»F3X  - F1»F6X 
E5  X F2'F6Y  - F5»F3Y 

E6  X F4»F3Y  - F1»F6Y 

COO  X QEL»(1.4»CK»A30/AR0  - AUO’AUO) 

COl  X OEL* (1.4*CK»AP1/ARI  - AU1»AU1) 

ZYKK)  X QYl 

ZUKK)  X ((CK»1.4»AP1/AR1  +AU1»AU1)*E2  -AU1»  E 4)  7 ( ARl*  COl ) 

ZVKK)  X (E6-AV1»E2)  / (ARI*AU1»0EL) 

RAQPl)  X RAB»fl 

Z=?(K(  X (l.ta/  RAOPO  >»AVN/AVS 

DUO  = ( (CK* 1.4*APO/ARO  ♦ AUO»AUO)»El  - AUO*E 3) /( ARO'COOl 

UVO  X JE5  - AV0»E1> /<ARO»AUO»OEL) 

ZVS(K)  X (UUO»CT+OYO»ST(»CT-AVN/RAO 
OMS  X 1.  - AVS»»2»AR07(1.4»CK*APO) 

FF  X (Z./B  ♦1.7RAR)»CK*AP0 
FF  X FF  ♦ ARB»AU3»AU3/RAB 
FF  X FF  -(2./B  +1./  RAHP3  )*CK'APO 
FF  X FF  ♦ AR0»A VS'A vs/  RARPB 
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1%S 


ISI 


155 


160 


165 


170 


175 


lao 


FF  * FF  -2.»{1./B*1./R*BPB»*»«0»»VN*»»N 
FF  » FF/6R071VS 

ZVN(KI  > AVN7  a»Z<)(KI-OHS**VN/AVS*ZVS(K)  tFF 
ZVN(KI  « ZVNIKI/(1.>AVN**VS*ARO/(1.4*C)(*1POII 
ORVS  » MO*  »OMS»ZVS«KI-ARO»»»S»AVN/«1.<»*:K**PO»»Z^N(K)  » 
ZUB<K)  > (AR3*AUB  *ARO* AVSt  *ZB  ( K> /B  *DRVS 
ZUBIKI  « ZUa(K)/(AR3*IAUa*AUd/(l.i«*C<*APd/AfiB>  'l.tl 
700  CONTINUE 

OVl  « (ZYlIZi  * 2. *177113}  * ZT1I4}}  * Zri(5>i/6. 
OU(IiN)  « IZUK2I  *2.*(ZJ1(3)*ZU1(AI)  *ZU1(5)>  76. 

OVl  ■ (ZV1(2I  * 2.*(Z«1I3I  * ZVKAI)  * ZVl(5li/6. 

OVS  * (ZVS(2I  * 2.*(ZVSI3)  * ZVS(4I)  * ZVSI5)l/6. 

DVN  « (ZVNI2I  * 2.*(ZVNI3}  * ZVN(A>)  * ZVNC5}}76. 

OU6  s (ZUa(2t  * 2.*IZUB(3)  * ZUB(4)}  * ZUB(5)I76. 

DOB  = (ZB  (21  * 2.*(Z8  (3}  * ZB  (A))  * ZB  (S)I76. 

VdlNI  » T(I,N)*H*0Y1 
U(1«N)  * U(I,NI»H*OU(I>N) 

V(I,NI  * V(I|NI*H*0V1 
VSQ  * U(I|N)*U(I,NIaV(1,N)*V(I»NI 
R(I,N)  * ((C-VSQ)/(C-1.) )**2.5 

P(I,N»  = 3(I,NI**1.A 

RN(I,N)  X S0RT(VS0*R(I,N}/(1.A*CK*P(I  .N)  1 1 

08  X OB  ♦OOB*HS 

VS  X VS  ♦ OVS*HS 

WN  X VN  ♦ OWN*HS 

Ut)  X ud  * OUB*HS 

RB  X ((C  - Ua*ua)/(C  - 1.M**2.5 

PB  X R8**1.4 

RMB  X UB/SaRT( 1.4»CK*P3/RB» 

XA  X xA  ♦ HS*CT 

CAL(.  ARFL  ( XA,xa,  YB»  0YB>  OOYB.t) 

CT  X 1.7SQRT(1.  ♦ QYB**2) 

ST  X CT*OYB 
H X X3  -Od*ST-X 
X X X ♦ H 
YO  X Y8  aOB’CT 
UO  X VS*CT  - VN*ST 
VO  X VS*ST  ♦ VN*CT 

RO  X ((C  - UO*  UO  - VO*  VO)/(C  - l.))*»2.5 
PO  X RO**l.A 

RMO  X SQRT((UO*UO  ♦ VO* VO) *307 ( 1. A*CK*  PO) » 

RETURN 

ENO 
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APPENDIX  G 

IGS  PROGRAM  LISTING 


SLOCK  DATA  CGRAF 

CGRAF 

2 

CONHON/COMNXT/NKYKGI 

•NXT2(6) 

COMNXY 

2 

COMHON/INPUTF 

INPUT 

2 

1 LRUPS16I  ,LRSTG(6) 

•LRAFU2(6I 

,LRAFL2(6I 

,LRAFU3C6) 

iLRXOOQIb) 

INPUT 

3 

$ 

2 .LROIEQ(6>  iLRXSEQIGI 

• LRXAUP(6I 

,LRCYDU(6I 

,LRXALril6) 

.LRCY0LC6) 

INPUT 

4 

1 .LRSLEQtb) iLRHACHIGI 

iLRALFA(6) 

,LRYIUI6t 

,LRV1L(6) 

• LRSTRTI6) 

INPUT 

5 

A ,LRNN1(6»  ,LRNA2(6I 

lLRNNJ<6t 

•LRNNLIE) 

•LRNN5(b) 

iLRNNb(b) 

INPUT 

b 

6 ,NLGRNG(6)  ,NPARAB<6) 

INPUT 

T 

CORRON/NOUT/  NAIRFL(6) 

NOUT 

2 

11 

1 ,LR0EEQI6) ,LRTS0Q(6) 

,LRYSEQC6) 

>LR00EQ(6> 

,LRRUEa(6) 

,LRUBEQ(6) 

NOUT 

3 

2 iLRtOtb)  tLRPOEQ<6) 

•LRNOGO(6I 

tLRSUBIEI 

,LRSUPR(6t 

iLRFLOHCbl 

NOUT 

4 

COHHON/NAXES/  NALLI6I 

NAXES 

2 

1 ,NHXt(6)  (NUPB(6) 

»N0U0X8I6I 

,NAF3B(bl 

,NOMNB(bl 

,NKY AB(6) 

NAXES 

3 

2 •NX1B(6)  (NX2B(6) 

,NTB(6( 

»NHB(6) 

,NR01B(b) 

,NM02B«6» 

NAXES 

4 

15 

3 ,N0U1B(6)  ,NOU2B<&) 

,N00Q8(6> 

,NP0B(6> 

,NPlB(b> 

fNPKTABIbl 

NAXES 

5 

comhon/nchars/nneq 

,NAEQ 

,NXOOEQ(  2) 

,NOVIEQ(2) 

,NXSEQ(ai 

NCHARS 

2 

1 ,NTS0EQ(2)  ,NXAEQ(2I 

,NCY0EQ(2» 

,NSLEQJ2> 

,NO£EQ(2t 

,NYSEQ(i» 

NCHARS 

3 

2 iN0y0EQI2)  ,NRUEQ(2) 

,NUB£QI2) 

,NI0<2) 

,NHACHQ(  2) 

,NALPHA(2) 

NCHARS 

.'4 

3 ,NTIUE0<2»  ,N»ILEQ<2) 

,NPOE3<2l 

,FMII 

,FHTF 

NCHARS 

5 

20 

CORIiON/NPRCO/  NCUPSK6) 

,NCUPS2<6I 

,NCAFU2tb> 

,NCAFL2lfa) 

,NCAFU3(b> 

NPRCD 

2 

1 •NCOMNKGl  ,NC0MN2(6) 

,NPUPS1C6» 

,NPUPS2(6) 

,NPAFUl(b) 

,NPAFC2(b) 

NPRCD 

3 

2 ,NPAFU3»6» ,NPAFL1<6) 

,NPAFL2(6) 

,NPDHN1(6> 

,NPOHN2(b> 

,NUPS(6> 

NPRCO 

4 

3 ,NAFH6I  ,NAF2(6) 

NPRCD 

5 

C CGRAF  9 


25 

C 

THESE  DATA  STATEMENTS  CONTAIN  CHARACTERS  USED  IN  THE  CREATION  OF 

the 

CGRAF 

10 

C 

LIGHT  REGISTERS  ANO  MANY 

TEXT  ENTITIES 

CGRAF 

11 

DATA  NNEQ.NAEQ/  10HNN= 

= ,10HNA: 

/ 

CGRAF 

12 

DATA  NOVIEQ,NXSEQ,NYSOEQ,NXA£Q,NCYO£Q,NSLEa,NXOOtO/ 

CGRAF 

13 

1 

10HOWOO(I)=  ,10H 

, 10HXS= 

, lOH  , 

CGRAF 

14 

30 

2 

1QHYS0=  ,10H 

, lOHXAr 

, lOH  , 

CGRAF 

15 

3 

10HCYO=  ,10H 

.lOHSHOCK  L= 

,10H  , 

CGRAF 

16 

4 

10HXOO=  ,10H 

/ 

CGRAF 

17 

DATA  NMACHQ,NALPHA,NTIUEa,NYILEQ/’ 

CGRAF 

IS 

1 

lOHMACH  NO.=  ,10ri 

,10HALPHA= 

,10H  , 

CGRAF 

19 

35 

2 

10HYI(UPR)=  ,10H 

,10HYI(LHR)  = 

, lOH  / 

CGRAF 

20 

DATA  NDEEQ,NYSEQ,N0V0EaiNRUEQ,NU9EQ,NID,NP0EQ/ 

CGRAF 

21 

1 

10HOE=  ,10H 

,10HYS= 

,10H  , 

cg:raf 

22 

2 

10HOVOO(F)=  ,10H 

, 10HR8UB= 

,10H  , 

CGRAF 

23 

3 

10HUa=  ,10H 

,10HFLOHS  NOT 

(lOHMATCHED  , 

CGRAF 

24 

40 

4 

10HPO=  .lOH 

/ 

CGRAF 

25 

DATA  FMTI.FMTF/  4H(I1» 

,7HTF10. 8) 

/ 

CGRAF 

26 

c 

CGRAF 

27 

c 

THIS 

DATA  STATEMENT  CONTAINS  THE  SIX  INTEGER 

arrays  IDENTIFYING  THE 

CGRAF 

28 

c 

TEXT 

ENTITIES  DISPLAYING 

SPECIFIED  OUTPUT  VALUES  IN  THE  LOWER  RIGHT 

CGRAF 

29 

45 

c 

HAND 

CORNER  OF  THE  SCREEN 

CGRAF 

30 

DATA  LRXOOQ  .LROIEQ 

,LRXSEQ  .LRXAUP 

,LRCYDU  ,LRXALW 

y 

CGRAF 

31 

1 

LRCYOL  .LRSLEQ 

,LRMACH  ,LRALFA 

,LRYIU  ,LRTIL 

y 

CGRAF 

32 

2 

LRNNl  ,LRNA2 

,LRNN3  ,LRNN4 

,LRNN5  ,LRNN6 

y 

CGRAF 

33 

3 

LRUPS  (LRSTG 

,LRAFU2  ,LRAFL2 

,LRAFU3  ,LRSTRT 

0 

CGRAF 

34 

50 

5 

lfl,4»99  ,2,2,4*99 

,3,2,4*99  ,4,3,4*99 

,5,3,4*99  ,6,4,4*99 

y 

CGRAF 

35 

6 

7,4,4*99  ,8,5,4*99 

,11,6,4*99,12,6,4*99 

,13,6,4*99,14,6,4*99 

' 1 

CGRAF 

36 

7 

21,1,4*99,22,1,4*99 

,23,3,4*99,24,4,4*99 

,25,5,4*99,26,5*99 

y 

CGRAF 

37 

S 

0,1, 4*0  ,0,2, 4*0 

,0,3, 4*0  ,0,4, 4*0 

,0,5, 4*0  ,0,6, 4*0 

0 

CGRAF 

38 

DA 

TA  LRDEEQ  ,LRYSOD 

,LRYSEQ  ,LRDOEQ 

,LRRUEQ  ,LRUBEQ 

y 

CGRAF 

39 

55 

1 

LRIO  ,LRP0EQ 

/ 

CGRAF 

41 

2 

20,5*20  ,20,5*21 

,23,5*22  ,20,5*23 

,20,5*24  ,20,5*25 

y 

CGRAF 

41 

3 

20,5*26  ,20,5*27 

/ 

CGRAF 

42 

c 

CGRAF 

43 

c 

THIS 

DATA  STATEMENT  CONTA 

INS  THE  SIX  INTEGER 

arrays  IDENTIFYING  THE 

CGRAF 

44 

60 

c 

TEXT 

ENTITIES  DISPLAYING 

BLINKING  asterisks  I 

N THE  LOWER  LEFT  HAND 

CGRAF 

45 

c 

CORNER  OF  THE  SCREEN 

CGRAF 

46 

DATA  NCUPSl  ,NCUPS2 

,NCAFU2  ,NCAFL2 

,NCAFU3  ,NCDWN1 

y 

CGRAF 

47 

1 

NCDWN2  f 

CGRAF 

48 

2 

30,5*20  ,30,5*31 

,30,5*32  ,30,5*33 

,30,5*34  ,30,5*35 

y 

CGRAF 

49 

65 

3 

30,5*  36  / 

CGRAF 

50 

c 

CGRAF 

51 

c 

THIS 

DATA  STATEMENT  CONTA 

INS  THE  SIX  INTEGER 

arrays  IDENTIFYING  T 

HE 

CGRAF 

52 

c 

TEXT 

ENTITIES  displaying 

NONBLINKING  ASTERISKS  IN  THE  LOWER  LEFT 

CGRAF 

53 

c 

HAND 

CORNER  OF  THE  SCREEN 

CGRAF 

54 
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0»T»  NPUPSl  ,NPUPS2 

,NPAFU1  ,NPAFU2 

.NPAFU3  ,NPAFL1 

CCRAF 

»5 

1 (NPAPLZ  ,NP0MN1 

,NP0NN2  ,NUPS 

,NAF1  ,NAF2 

/ 

CGRAF 

56 

2 31,32,37,39,37,31 

,31,32,33,37,35,39 

,32,32,33,39,35,31 

CCRAF 

57 

3 ,6*32 

,6*33 

,32,32,33,  39,35,36 

CCRAF 

58 

9 ,6*39 

,6*35 

,6*36 

CCRAF 

59 

75 

5 ,31,32,9*0 

,0,32,33,1*0 

,0,32,0,39,2*0 

/ 

CCRAF 

60 

C 

CCRAF 

61 

C 

TEXT  ENTITIES  OISPLAYING 

CHARACTERS  WHICH  IDENTIFY  THE  ABsCISSA 

AND 

CCRAF 

62 

c 

ORDINATE  AXES  OF  THE  GRAPHICAL  OUTPUT 

CCRAF 

61 

DATA  NXIB  ,NX2B 

,NYB  ,NHB 

,NM013  ,NM02B 

f 

CCRAF 

69 

80 

1 NOUIB  ,N0U2B 

, NODOB  ,NPOa 

,NPia  ,NPKTAB 

/ 

CCRAF 

65 

2 90,91,92,93,99,95 

,90,3*97,99,95 

,90,91,9*97 

t 

CCRAF 

66 

3 90,91,9*98 

,90,96,92,3*96 

,90,91,9*99 

f 

CGRAF 

67 

9 90,2*96,93,2*96 

,90,3*96,99,96 

,90,3*97,99,97 

* 

CCRAF 

68 

5 91, 9*98, h5 

,90,9*99,95 

,99,91,92,93,99,95 

/ 

CCRAF 

69 

85 

DATA  NNXB  ,NUPB 

,N0U0X3  ,NAF3B 

,NDMNB  ,NKTAB 

/ 

CGRAF 

70 

1 90,0,92,3*0 

,90,91,9*0 

,90, 2*0, 43, 2*0 

9 

CGRAF 

71 

2 90,3*0,99,0 

,90,9*0,95 

,0,91,42,93,94,95 

/ 

CGRAF 

72 

c 

CGRAF 

71 

c 

THIS  DATA  STATEMENT  CONTAINS  A SIX  INTEGER  ARRA YI OENT IF TI NG  A POLY- 

CGRAF 

79 

90 

c 

LINE  ENTITYMHICH  DISPLAYS 

THE  AIRFOIL  SHAPE 

IN  IriiL  LOWER  LEFT  HAND 

CGRAF 

75 

c 

CORNER  OF  THE  SCREEN 

CGRAF 

76 

DATA  NAIRFL/6*18 

/ 

CGRAF 

77 

DATA  LRSUOR  ,LRSUB 

.LRFLOW  /2*19,9»1 

,2*19,4*2  ,2*19,9*0 

CGRAF 

78 

DATA  NLGRNG  ,NPA9A3 

/5*39,37  ,5*39,38 

/ 

CGRAF 

79 

95 

DATA  LRNOGC  /6*39 

/ 

CGRAF 

80 

c 

CGRAF 

81 

c 

THIS  DATA  STATEMENT  CONTAINS  THE  SIX  INTEGER 

ARRAYS  IDENTIFYING 

THE 

CGRAF 

82 

c 

POLYLINE  ENTITIES  FOR  GRAPHICAL  OUTOUT 

CGRAF 

81 

DATA  NXYl  ,NXY2 

76*60  ,6*61 

/ 

CGRAF 

89 

100 

OATA  NALL/6*0/ 

CGRAF 

85 

END 

CGRAF 

86 
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5 


10 


15 


20 


25 


30 


36 


40 


OVERLAr(OVFILE,0,OI 

PROGRAH  L lEHf INPUT t OUTPUT, TAPE5=INPUT,TAPE6=0UT PUT! 

COMHONCSSCAU/IOSCAL 

CONNON/NCON/  ICON 

CONMON/OUTCONF 

1  XH160I  ,tl(160»  ,T2(160)  ,NN1  ,NN2 

C0NM0NFC0NNXT/NXTK6)  ,NXY2(6) 

CONMON/ICNTRL/J  ,ICRITC2)  ,LL(2)  ,IGO(2) 

COMNOH/IHPUT/ 

1 LRUPS(6I  ,LRSTG(6>  ,LRAPU2I6I  ,LRAFL2(  6)  , LRAFU3(  61  , LRX00QI6> 

2 ,LR0IEQ(6)  ,LRXSEQ(6i  ,I.RXAUPI6t  ,LRCTDU(6I  ,LRXALM(6)  ,LRCT0L(6) 

3 ,LRSLE0(6I ,LRMACM(6) ,LRALFA(6t ,LRTIUI6)  ,LRTIL(6I  ,LRSTRT|6) 

4 ,LRNN1(6I  ,LRNA2(6T  ,URNN3(6I  ,LRNN4I6)  ,LRNNS(6)  ,LRNN6(6) 

5 ,NLGRNG(6>  ,NPARAB(6) 

COMHON/NOUT/  NAIRFL<5> 

1 ,tR0EECI(6)  ,LRTS0Q(6)  ,LRYSEQ(6i  ,LRDOEQ(&)  .LRRUEQIb)  ,LRUBEQ(6) 

2 ,LRIDI6)  ,LRP0EQ(61  ,LRN0G0(6J  ,LRSU3(6)  ,LRSUPR(6)  ,LRFL0MI6) 
COMHQN/NPRCO/  NCUPSU6)  ,NCUP$2<6)  ,NCAEU2I6)  ,NCAFL2(6I  ,NCAFUH6) 

1 ,NC0MN1(6)  ,NCDMN2t6)  ,NPUP31(6)  .NPUPS2I6)  ,NPAFUK6I  ,NPAFU2«6) 

2 ,NPAFU3(6)  ,NPAFL1(6)  ,NPAFL2(6)  ,NPDMN1(6*  ,NP0WN2«6»  ,NUI»S(6» 


3 ,NAF1(6»  ,NAF2<6) 

COHHON/NAXESF  NALL<6) 
1 ,NNXB(6}  ,NUPB(6) 

,NDU0X3C6) 

,NAF3B(6) 

,NOHNB(b) 

,NKTAB(6) 

2 ,NX1B(6>  ,NX23(6I 

,NYB(6) 

,NMB  1 6) 

,NM01B(6) 

,Nn02B(6) 

3 ,N0U1B(6)  ,N0U2B(6) 

,NOOQ3(6) 

,NPOB(6> 

,NP13(6) 

.NPKTABI6) 

COHHON/NCHARS/KNEO 

,NAEQ 

,NXOOEQ(  2) 

.NDVlEOt  2) 

,NXSEQ(2) 

1 ,NrSOEQ(2l ,NXAEQ(2) 

,NCY0EQ(2) 

,NSLEQ<2) 

,NOEEQ(2) 

,NYSEQ<2) 

2 ,NOVOEQ<2)  , NRUEQ<  21 

,NUBEQ(2) 

,NID(2> 

,NMACHa(  2) 

,NALPhA<2) 

3 ,NTIUEQ«2)  ,NYILEO(2) 

,NPOEQI2) 

,FMTI 

,FHTF 

COMMON  C ,CK 

,RS 

,FM 

.alpha 

COMMON/BCOM/  XO 

,DVOO 

,L 

COMMON/ECOH/ASTAGt26.l  .XSTAGlll)  .YSTAGUl)  ,XAF<50)  ,YAF 

(50,2) 

COMMON/AINPUT/AIN( 24) 

,NNI(7) 

,HI(6) 

COMMON/YUVSAV/NNN(  3) 

,YUV(126) 

COMMON/PTARFL/XX(4  0,2) 

,YY<40,2) 

,AM<40  ,2) 

,CA 

,SA 

CO  MMON/COMPRS/X»(  160,2) 

,PP« 160,2) 

,NP12) 

C0MM0N/R3UBCMFR3UP 

,U8IN1T 

,IR3UB 

INITIATE  PROGRAM  EXECUTION 

call  GPEXE«4LNPUT» 
END 


LIEN 

LIEN 

ISSCAL 

NCON 

OUTCOH 

OUTCOH 

CONNXT 

ICNTRL 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

NOUT 

NOUT 

NOUT 

NPRCO 

NPRCD 

NPRCO 

NPRCO 

NAXES 

NAXES 

NAXES 

NAXES 

NCHARS 

NCHARS 

NCHARS 

NCHARS 

COHHON 

BCON 

ECOM 

AINPUT 

YUVSAV 

PT ARFL 

COMPRS 

RBUBCN 

LIEN 

LIEN 

LIEN 

LIEN 


22 

23 

24 

25 
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OVEKlAT(l,OI 

NPUT 

2 

PKOGRAH  NPUT 

NPUT 

I 

C 

NPUT 

4 

C THIS  PROGRAH  READS  INPUT 

NPUT 

5 

5 

C 

NPUT 

6 

CONHON/NCON/  ICON 

NCON 

2 

C0NN0N/AINPUT/AINC24)  •NNl(2l  ,HI(6> 

AINPUT 

2 

CONHON/TUVSAV/NNN(  It  ,YUV(126) 

YUWSAY 

2 

CONHON/PTARFL/XX(40,2I  iYY(4a,2)  (ANI40|2)  ,CA  ,SA 

PTARFL 

2 

10 

COHHON  C fCK  ,RS  ,FH  .ALPHA 

COMMON 

2 

OINENSION  LASELCr) .NPI2I 

NPUT 

12 

C 

NPUT 

13 

C READ  the  CONSOLE  NUMBER  ANO  THE  LABEL  CARO 

NPUT 

14 

READC5.90I  ICON, (LABELt II , 1=1,7) 

NPUT 

15 

15 

C 

NPUT 

16 

C READ  IN  ELOR  CONDITIONS 

NPUT 

17 

REAO(5,100I  FM.TC, ALPHA 

NPUT 

IS 

C 

NPUT 

19 

C READ  IN  FLOH  SOLUTION  PARAMETERS 

NPUT 

20 

20 

READ(5,210)  lAINdl  ,1  = 1,7) 

NPUT 

21 

READ(5,100I  lAINd)  ,1  = 0,15) 

NPUT 

22 

READ(5,iaai  (AIN(I)  ,1=16,18) 

NPUT 

23 

c 

NPUT 

24 

C REAO  IN  THE  NUMBER  OF  STRIPS  AND  THE  INTEGRATION  STEP  SIZE 

NPUT 

25 

25 

REA0(5,liai  (NNI  (11,1  = 1,6), (Hid), 1 = 1, 6) 

NPUT 

26 

MRITE(6,4aO) 

NPUT 

27 

MRITE(6,330I  ( L ABEL (I ) , 1= 1 , 7) 

NPUT 

28 

REAO(5,140)  NP(1),NP(2) 

NPUT 

29 

00  20  J=l,2 

NPUT 

30 

30 

NN  = NP(JI 

NPUT 

31 

20  REAO(5,150)  ( X X d , J)  , YT  (I  , J)  , AH  (I  , J ) , I = 1,  NN) 

NPUT 

32 

NNI  = NP(1) 

NPUT 

33 

IF(NP(2I  .LT.NP(D)  NNI  = NP(2I 

NPUT 

34 

HRITE(6,240) 

NPUT 

35 

35 

□ 0 30  1 = 1 , NNI 

NPUT 

36 

30  HRITE(6,250)  XX  ( 1 , 1 ) , Y Y d , 1)  , AM  ( 1 , 1)  , XX  ( 1 , 2)  , Y Y (1 , 2)  , A Hd , 2) 

NPUT 

37 

NNI  = NNl+1 

NPUT 

38 

J = 1 

NPUT 

39 

IF(NP(2)  .GT.NP(D)  J=2 

NPUT 

40 

40 

IF(NP(2)  .EO.NPd))  GO  TO  80 

NPUT 

41 

NN2  = NP(J) 

NPUT 

42 

GO  TO  (40 ,60)  , J 

NPUT 

43 

40  00  50  I=NN1,NN2 

NPUT 

•^4 

50  HRITE(6,260)  X X ( 1 , 1)  , YY  ( 1 , 1) , AM  (1 , 1 ) 

NPUT 

45 

45 

GO  TO  80  ' 

NPUT 

46 

60  00  70  I=NN1,NN2 

NPUT 

47 

70  HRITE(6,270I  X X d , 2)  , YY  ( 1 , 2)  , AM  ( I , 2) 

NPUT 

48 

80  CA  = C0S(ALPHA/57.2957795) 

NPUT 

49 

SA  = SIN(ALPHA/57. 2957795) 

NPUT 

50 

50 

CALL  AETSKC(4LSTUP) 

NPUT 

5 1 

90  PORHAT(I2,8X,7A10) 

NPUT 

52 

100  FORMAT(8F10.6) 

NPUT 

53 

110  FORMAT(6I1,4X,7F10.6) 

NPUT 

54 

140  FORf'AT(2I2) 

NPUT 

55 

55 

210  FORMAT) 10X,7F1 0.6) 

NPUT 

56 

150  FORMAT(3F20.15) 

NPUT 

57 

240  FORMAT) 17 X,8HX (UPPER) , 1 2X , SHY ( UPPER) , 9X , 1 2H DY/0 X (UPPE R) ,11X , 

NPUT 

58 

1 8HX(LOWER),12X,8HY(LO)(ER)  , 9X  , 12H0Y/0X  (L  OHER)  ) 

NPUT 

59 

250  FORMAT(7X,6F20.12) 

NPUT 

d'o 

60 

260  FORHAT(7X,3F20.12) 

NPUT 

6 1 

270  FORMAT(67X,3F20. 12) 

NPUT 

62 

330  FOPMAT(4(/)32X,7A10,4(/)) 

NPUT 

63 

400  FO RHAT(1H1,4(/)7X, 12(10 H» ••»»••»••)) 

NPUT 

64 

END 

NPUT 

65 
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OVERLAT<2»0) 

STUP 

2 

PROGRAM  STUP 

iTUP 

3 

C 

STUP 

4 

C 

THIS  PROGRAM  SETS  UP  THE  LIGHT  REGISTERS,  THE  LIGHT  BUTTONS, ANO 

STUP 

5 

5 

c 

MANT  TEXT  ENTITIES  , 

STUP 

6 

COMMON/NCON/  ICON 

NCON 

2 

COMMON/ ISSCALX lose AL 

ISSCAL 

2 

COMMON/INPUT/ 

INPUT 

2 

1 LRUPS16I  ,LRSTG<6)  ,LRAFU2  (61  ,L RAFL2C  6)  , LRAFU 3 ( 6) 

,LRX  000(61 

INPUT 

3 

10 

2 ,LRDIEQ(6»  ,LRXSEQ(6)  ,LRXAUP(6)  ,LRCT0U(6)  ,LRXALH(6) 

,LRCYDL(6I 

INPUT 

4 

3 ,LRSLEQ(6)  ,LRMACH(6)  ,LRALFA(6)  ,LRTIU(6)  ,LRYIL(6) 

,LRSTRT(6) 

INPUT 

5 

4 ,LRNNl(6i  ,LRNA2(6)  ,LRNN3(6I  ,LRNN4(6)  ,LRNN5(6) 

,LRNN6 (6) 

INPUT 

6 

5 ,NLGRNG(6)  ,NPARA9(6) 

INPUT 

r 

COMMON/NOUT/  NAIRFL(6) 

NOUT 

2 

15 

1 ,LR0EEQ(6»  ,LRTS0Q(6»  ,LRYSEQ(6I  ,LRD0EQ(6)  ,LRRUE0<6) 

,LRUBEQ(6I 

NOUT 

3 

2 ,LRI0(6)  ,LRP0EQ(6)  ,LRNOGO(6)  ,LRSU9(6)  ,LRSUPR(6) 

,lRFL0H(6) 

NOUT 

4 

COMMON/NPRCO/  NCUPSK6I ,NCUPS2(6) ,NCAFU2(6) ,NCAFL2(6) 

,NCAFU3(6) 

NPRCO 

2 

1 ,NC0HN1(6)  ,NC0HN2<6)  ,NPUPS1(6)  ,NPUPS2(6)  ,NPAFU1(6) 

,NPAFU2(6> 

NPRCO 

3 

2 ,NPAFU3(61  ,NPAFL1(6J  ,NPAFL2(6)  ,NP0HN1(6)  ,NP3WN2(6J 

,NUPS(6) 

NPRCO 

4 

20 

3 ,NAF1(6)  ,NAF2(6) 

NPRCO 

5 

COMMON/NAXES/  NALL(6) 

NAXES 

2 

1 ,NMXB(6)  ,NUP0(6I  ,N0U0XB(  6>  , NAF  3B  (6 » ,NDHNB(6) 

,NKTA3(6) 

NAXES 

3 

2 ,NX1B(6»  ,NX29(6»  ,NTB(6»  ,NMB(6)  ,NM019t6l 

,NM02B(6> 

NAXES 

4 

3 ,N0U1B(6)  ,N0U2B(61  ,NOOQ9(6»  ,NP0B(6)  ,NP13(6) 

,NPKTAB(6) 

NAXES 

5 

25 

COMMON/NCHARS/NNEQ  ,NA£Q  , NXOOEQ(  2)  , N OV I EQ  ( 2) 

,NXSEQ(2) 

NCHARS 

2 

1 ,NYSOEO(2)  ,NXA£Q(21  , NCTOEQ  ( 21  , NSL  EQ  ( 2 ) ,NJEEQ(2) 

,NYSEQ(2) 

NCHARS 

3 

2 ,NOyOEJ(2)  ,NRUEQ(2)  ,NUBEQ(2)  ,NI0I2)  ,NMACHQ(2) 

,NALPHA(2) 

NCHARS 

4 

3 ,NVIUEQ(21 ,NTILEQ(2) ,NP0E0(2)  ,FMTI  ,FMTF 

NCHARS 

5 

C0MM0N/AINPUT/AIN<24)  ,NNI(7)  ,HI<6> 

A INPUT 

2 

30 

C0MM0N/YuySAV/NNN(3)  ,YUV(126) 

YUVSAV 

2 

COMMON  C ,C<  ,RS  ,FM  , ALPHA 

COMMON 

2 

DIMENSION  IXLR(?»  ,IYLR(4) 

,XLR(2)  , 

STUP 

17 

1 YLR(4)  ,XPRC0(61  ,YPRC0(3)  ,XGRI0(2)  ,YGRI0(4) 

,ALIM1(4)  , 

STUP 

13 

2 USERK4)  ,BAS£<4)  ,X(60)  ,T(60)  ,NSNCP3(2) 

,N0G0B(3)  , 

STUP 

19 

35 

3 IWELK2I  ,IYEL2(2) 

STUP 

20 

OATA  NSNCPB,NOGOB, ICOMP ,NST OP ,NSU3 , NSUPR, L RST AR , I»RCD 

,IViLl, IVEL27 

STUP 

21 

1 lOHSONIC  POIN,10HT  REACHED  , 1 OHINT '’GRA  T I 0 , 1 0 HN  INCOMPlE, 

STUP 

22 

2 2HTE  ,rHCOMPUTE  ,4HST0P  ,8HSU3S0NIC  , 

STUP 

23 

3 10HSUP£RSONIC,1H»  ,7HPR0CEE0  , 10 HL AG KA NG I A N, 

STUP 

24 

40 

4 lOH  FUNCTION  , 1 OHP ARA30L IC  ,10HFUNCTION  / 

STUP 

25 

OATA  NX,NY, NM,NMO, NOUOX,NOOQ,NPO,NP1 

/ 

STUP 

26 

1 IHX, 1HY,1HM,2HMO,4HOUOX, JH0DQ,2HP0,2HP1 

/ 

STUP 

27 

OATA  IXLR,  IYLR,XLR,YLR,XPRCJ,TPRCO 

/ 

STUP 

23 

1 11  ,36  ,-53  ,-49  ,-45  ,-41  , 

STUP 

29 

45 

2 1 0 • , 35 • , - 56 , , -5 2 • , - 4 8 • , -44 . , 

STUP 

30 

3 -56. ,-50. ,-39. ,-3  7. ,-27.  ,-2.  ,-56.  ,-50  . , -43  . 

f 

STUP 

31 

DATA  XGRIO,YGRIO,ALIM1 , USER  1, RASE 

f 

STUP 

32 

1 -54.,1.,-42.,-16.,12.,J6.,3»(-5T.,-57.,57.,57.» 

r 

STUP 

33 

DATA  IXCM,IYCM/35,-56/ 

STUP 

34 

50 

c 

STUP 

35 

c 

INITIALIZE  SU3SCKEEN  AREA  IDENTIFIER 

STUP 

36 

IDSCAL  = 1 

STUP 

37 

c 

STUP 

33 

c 

CREATE  POINTS  ON  AIRFOIL  FOR  THE  POLYLINE  ENTITY  NAIRFL 

STUP 

39 

55 

X<  1)  = -12. 

STUP 

40 

CALL  ARFL ( 1 . 0 , A , Y Y , 3, C , 2 ) 

STUP 

41 

Y(  1>  = -50.-TT»25. 

STUP 

42 

XX  = 0.95 

STUP 

43 

DO  5 1=2,29 

STUP 

44 

60 

call  ARFL (XX,A,YY, B,C,2» 

STUP 

45 

XII)  = -37.tXX»25. 

STUP 

46 

Y(I)  = -50.-YY»25. 

STUP 

47 

DX  = -.05 

STUP 

43 

IF  ti .GE. 19)  OX  = - . 01 

STUP 

49 

65 

IF(I.GE.23)  ox  = -.005 

STUP 

50 

5 XX  = XXTDX 

STUP 

51 

X(  30)  = - 37. 

STUP 

52 

Y(30)  = -50. 

STUP 

53 

XX  = .005 

jTUP 

54 

160 


7Q 

DO  6 1=31,58 

iTUP 

55 

CALL  A9FL(XX,A,Tr,B,C,l) 

STUP 

56 

Xlll  = -37.*XX»25. 

STUP 

57 

Tin  = -50.*VT»25. 

STUP 

58 

OX  : .005 

STUP 

59 

75 

IF(I.CE.32>  9X  = .01 

STUP 

60 

IF(I.GE.41t  OX  = .05 

STUP 

61 

6 XX  = XX»OX 

STUP 

62 

X(591  = -12. 

STUP 

63 

T<59)  = til) 

STUP 

64 

80 

C 

STUP 

65 

C 

INITIALIZE  GRAPHIC  PAC  FACILITIES 

STUP 

66 

call  INTGPI6LQATAFL,3,510,1) 

STUP 

67 

c 

STUP 

68 

c 

INITIALIZE  THE  GRAPHICS  CONSOLE  NUMBER  ICON 

STUP 

69 

85 

call  INCONdCONI 

STUP 

70 

c 

STUP 

71 

c 

DEFINE  SU9SCREEN  AREA  1 TO  DEFINE  THE  ENTIRE  SCREEN  AREA 

STUP 

72 

call  SCORStBASEI 

STUP 

73 

call  SSCALI1,ALIM1,USER1> 

STUP 

74 

90 

call  PLTLN<NAIRFL,1,X(1) ,rci) ,58) 

STUP 

75 

CALL  ASCALIl) 

STUP 

76 

call  GENOFCNAIRFL,  0) 

STUP 

77 

c 

STUP 

78 

c 

CREATE  POINT  ENTITIES  IN  THE  LONER  RIGHT  HAND  CORNER  OF  THE  SCREEN 

STUP 

79 

95 

call  POlNT(XLRd)  ,TLR(1)  ,PTLR11) 

STUP 

80 

CALL  POINKXLRd)  ,TLR«2)  ,PTLR12) 

STUP 

81 

CALL  POINT(XLRd)  ,YLR(3)  ,PTLR13) 

STUP 

32 

call  POINUXLRdI  , YLRTL)  ,PTLR1<») 

STUP 

83 

CALL  P0INT(XLR<2)  ,YLRd)  ,PTLR21) 

STUP 

84 

100 

call  P0INT<XLR<2) ,YLR<2I ,oTLR22) 

STUP 

85 

call  P0INT(XLPC2)  ,YLR(3)  ,PTlR23) 

STUP 

86 

call  P0INT(XLR<2)  ,YLR(4),PTLR2'.) 

STUP 

87 

c 

STUP 

38 

c 

create  point  entities  in  the  LOHEP  left  HAND  CORNER  OF  THE  SCREEN 

STUP 

89 

105 

call  P0INT(XPRC0(2) ,YPRCO«2) ,ISTR22) 

STUP 

90 

CALL  P0INT(XPRCn(3) ,YPRCO(2) ,ISTR32) 

STUP 

91 

call  POINT<XPRCO(L)  ,Y»RC0t3)  ,ISTR1.3) 

STUP 

92 

call  POINT<XPRCO{5) ,YPRC0(3),ISTR53) 

STUP 

93 

CALL  POINT(XPRC9<<.)  .YPRCOd)  ,ISTR41) 

STUP 

94 

110 

call  POINT(XPRCO<5)  .YPRCOd)  ,ISTR51) 

STUP 

95 

call  P0INT(XPRC0(5) ,YPRCD(2),ISTR52) 

STUP 

96 

CALL  P0INT(XPRC0(6) , Y PRCO ( 2) , ISTR62 ) 

STUP 

97 

c 

STUP 

98 

c 

create  point  entities  in  the  upper  area  of  THE  SCREEN 

STUP 

99 

115 

CALL  P0INT(XGRID(2I , VGRIQ (1 ) , PGR021 ) 

STUB 

10  0 

CALL  POlNT(XGRIOd) ,YGRID(2) ,PGR012) 

STUP 

101 

CALL  POINT (XGRIO (1) ,YGRIO< 31 ,PGRD13) 

STUP 

102 

CALL  P0INTIXGRI0(2I ,YGRIQ(3) ,PGR023) 

STUP 

103 

CALL  POlNT(XGRIDd) ,YGRID(4) ,PGR014) 

STUP 

104 

120 

c 

STUP 

105 

c 

CREATE  LIGHT  REGISTERS  FOR  THE  LONER  RIGHT  HAND  CORNER  OF  THE  SCREEN 

STUP 

106 

c 

NHICH  can  be  USED  TO  CHANGE  INPUT  VARIABLES 

STUP 

107 

CALL  LITRG(IXLR<2),IYLR(2I , NNEQ , 3 , 2 1 , FMTI I 

STUP 

108 

CALL  LITRGtIXLR(2) ,IYLR<2) , NAEQ, 3 , 22, FMTI ) 

STUP 

109 

125 

CALL  LITRG(IXLR( 2) ,IYLR<2) , NNEO, 3 , 23, FM TI ) 

STUP 

110 

CALL  LITRG(IXLR(2) ,IYLR<2) , NNEO ,3 , 24, FMTI » 

STUP 

111 

CALL  LITRG(IXLR«2) ,IYLR<2) , NNEQ , 3 , 25, FMTI ) 

STUP 

112 

CALL  LITRGIIXLR(2) ,IYLR(2) , NNEQ, 3 , 25,  FMTI ) 

STUP 

113 

call  LITRG(IXLR(2)  ,IYLR<4)  , NXOOEQ, 4 , 1 , FMTF) 

STUP 

114 

130 

CALL  LITRGJIXLR (2) ,ITLR<4) ,N0VIEQ,S,2, fmTF) 

STUP 

115 

CALL  LITRG(IXLR(2)  ,ITLR(3)  ,NXSEQ,3,  3,FMTF) 

STUP 

116 

call  LITRG(IXLR(2) ,IYLR(4) ,NXAEQ, 3,4,FMTF) 

STUP 

117 

call  LITRG(IXLR(2) ,IYLR(3» ,NCY0EQ,4,5,FMTF) 

STUP 

118 

call  LITRG(IXLR(2),IYLR(4I , NXAEQ , 3,  6, FMTF) 

STUP 

119 

135 

CALL  LITRG(IXLR(2),IYLR(3)  , NCYOEO  ,4 , 7 , FMT  F) 

STUP 

120 

call  LITRG«IXLR(2»,ITLR(4) , NSL EQ , 8 , 8 , FMTF ) 

STUP 

121 

CALL  LITRG(IXLR(2I,IYLR(4) , NMACHQ ,9 , 1 1 , FMTF J 

STUP 

122 

call  LITRG(IXlR( 2) ,IYLR<3) , NALPHA , 6 , 1 2 , FMTF ) 

STUP 

123 

CALL  LITRG(IXLR( 2) ,IYLR(2t , NY lUEQ, 8 , 1 3 , FMTF ) 

STUP 

124 

161 


t%l  CAU  LITR&(IXLR(2>  iIYLR(l)  ,N»ILEQ,a,l*.,FMTFl  STUt* 

C STUR 

C CREATE  TEXT  ENTITIES  FOR  THE  LONER  RIGHT  HAND  CORNER  OF  THE  SCREEN  STUR 

C NHICH  CAN  BE  USED  IN  CONJUNCTION  NITH  THE  LIGHT  REGISTERS  TO  CHANGE  STUR 

C INRUT  WARIABLES  STOR 

CALL  ENSHFTINNEQtIfNNmi  ,FNTI)  STUR 

CALL  TEXTtLRNNl,0,PTLR22,NNEQ,<.,0,3,ARCVLI)  STUR 

CALL  ENSHFT(NAEQ«3|NNI(2)  ,FNTII  STUR 

CALL  TEXT(LRNA2,Q,PTLR23,NAEat4,0,S,LRCVLI)  STUR 

CALL  ENSHFT(NNEQ,3fNNH3»  ,FHTII  STUP 

ISI  CALL  TEXTlLRNN3,aiPTLR22,NNEQ>4,0.3,<>RCtfLI)  STUR 

CALL  ENSHPT(NNEQ,3,NNI<i»l  ,FNTI)  STUR 

CALL  TEXTILRNNL,0,RTLR22,NNEQ,<*,0,3,«.RCVLI»  STUR 

CALL  ENSHFT(NNEQt3iNNI(S) tFNTII  STUR 

CALL  TEXT(LRNNB,0tRTLR22,NNEQ,l>,0>3,LRCyLl>  STUR 

ISS  CALL  ENSHFTINNEQ,3,NNI(6)  (FHTn  STUP 

CALL  TEXT(LRNN6«0«RTLR22<NNEQ,*it0,3,>>RCyLI)  STUR 

CALL  ENSHFTINOVIEQfltAINC U >FHTFI  STUR 

CALL  TEXT(LROIEQ,OiRTLR2A|NOVIEQ,1S,0,3,<>RCVLR)  STUP 

CALL  ENSHFTINXSEQ,3,AIN(2) ,FNTF)  STUR 

111  CALL  TEXTILRXSEQ,0tRTLR23|NXSEQ,t3f  0>3,<>RCVLR)  STUR 

CALL  ENSHFTCNXOOEQtAtAINiai »FHTFI  STUP 

CALL  rEXT(LRXOOQ,0«RTLR2<«>NXOOEQ»l<i,0,3,LRCVLR>  STUR 

CALL  ENSHFT«NXAEQ,3,AIN«3) ,FNTF)  STUR 

CALL  TEXT(LRXAUP,O.RTLR2L,NXAEQ«13,0.3,LRCVLRI  STUR 

CALL  TEXTtLRCTOU,0,PTLR23,NCTOEQ>14,0,3,LRCVLR)  STUR 

CALL  ENSHFTINXAEQ, 3,AIN(S) ,FHTF)  STUR 

CALL  TEXT(LRXALN,0|PTLR24,NXAEQtl3,0,3,4RCVLRt  STUR 

call  ENSHFTTNCT0EQ,<*,AIN(61  ,FNTF»  STUR 

120  CALL  TEXTILRCTOL,0,RTLR23,NCTDEQ,1«»,0,3,4RC*LR)  STUR 

CALL  ENSHFTINSLEQ,8,AIN«7I ,FHTF>  STUR 

CALL  TEXT(LRSLEQ,0,PTLR24,NSLEQ,18,0,3.4RCyLR)  STUR 

CALL  ENSHFT<NHACHQ,q,FN,FMTF)  STUR 

CALL  TEXT(L*HACH,0|PTLR24,NNACHQ,19,0,3,4«C»LR)  STUR 

175  call  ENSHFT(NALPHA,6,ALPHA,FHTF>  STUR 

CALL  TEXT  (LRALFA.fl, PTLR23,NALPHA, 16,0, 3»4RCyuR>  STUR 

CALL  ENSHFMNTIUE0,8,AIN<1H,FHTFI  STUR 

CALL  TEXT(LRTIU,0,PTLR22,NTIUEQ,18,0,3,4RCyLR)  STUR 

CALL  ENSHFT«NTILEQ,8,AIN(12I ,FMTF»  STUR 

180  CALL  TEXT  (LRflL,0,PTLR21, NYILEQ, 18,  0,3, 4RC\/LR»  STUR 

C STUR 

C CREATE  TEXT  ENTITIES  FOR  THE  LONER  RIGHT  HAND  CORNER  OF  THt  SCREEN  STUR 

C NHICH  OISPLAY  OUTPUT  INFORMATION  STUP 

call  TEXT  (LROEEQ, 1,PTLR14,N0EEQ, 131  STUP 

185  call  TEXT  (LRTS0Cl,l,PTLR13,NYS0EQ, 141  STUR 

CALL  TEXT (LRYSEQ,1,PTLR14,NYSEQ, 131  STUP 

call  text (LR00EQ,1,PTLR13,N0»0EQ,18)  STUR 

call  TEXT(LRRUEa,l,PTLR14,NRUEQ,16J  STUP 

call  text (LRUSEq,l,PTLR13,NUBEQ,13»  STUP 

190  call  TEXT(LRI0  ,1,PTLR13,NIO,20I  STUR 

CALL  TEXT (LRPOEQ,1,PTLR12,NPOEQ,13»  STUR 

C STUR 

C CREATE  TEXT  ENTITIES  IN  THE  UPPER  AREA  OF  THE  SCREENHHI CHLABEL  THE  STUP 

C GRAPHIC  OISPLAY  STUP 

195  call  TEXT(NX1B,1,PGR021,NX,1I  STUP 

CALL  TEXT (NX2B,1,PGR023,NX,1)  STUP 

CALL  TEXKNYB  , 1 , PGR014 , N Y , 1)  STUP 

call  TEXUNMB  ,1,PGR023,NM,1»  STUP 

CALL  TEXTINM01B,1,PGRD13,NM0,2»  STUR 

200  CALL  TEXT (NM02e,l,PGRD12,NM0,2)  STUP 

CALL  TEXTINOU1B,1,RGR013,NOUOX,4)  STUR 

CALL  TEXT(N0U2B,1,PGR012,NDU0X,4)  STUR 

CALL  TEXT(NDDQB,1,PGR014,NDOQ,3)  STUP 

CALL  TEXT!  NP06 , 1 , PGR012 , NPO, 2)  STUR 

205  CALL  TEXT(NPKTAB,1,PGR013,NP0,21  STUP 

CALL  TEXT!  NPl B , 1 , PGRDl 4 , NPl , 2)  STUP 

C STUP 

C CREATE  TEXT  ENTITIES  IN  THE  LOWER  LEFT  HAND  CORNER  OF  THE  SCREEN  STUP 

c whichcisplay  asterisks  Indicating  next  program  step  siup 


125 

126 
127 
121 
129 
131 

131 

132 

133 

134 

135 
131 

137 

138 

139 
148 

141 

142 

143 

144 

145 

146 

147 

148 

149 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 
17  4 

175 

176 

177 

178 

179 

150 
181 
182 

183 

184 
135 
186 

187 

188 

189 

190 

191 

192 

193 

194 


162 


til 

CALL 

TEXT (NPUPSltO«ISTR22,LRSTAR, 1,0*3, LRSTRTi 

STOP 

195 

CALL 

TEXT  INPUPS2,a',ISTR32,LRSTAR,l,0,3,i,RPRP2l 

ST  UP 

196 

CALL 

TEXT(NPAFU1,0,ISTR<,3,LRSTAR,1,  a,3,ARAFUl> 

STOP 

197 

CALL 

TEXT  (NPAFU2,0,ISTRI>S,LRSTAR,1,0,3,<>RPRP3I 

STUP 

190 

call 

TEXT (NPAFU3,0,ISTR53,LRSTAP,l,g,3,4RPRP51 

STUP 

199 

SIS 

CALL 

TEXT(NPAFL1,0,ISTR<>1,LRSTAR,1,0,3,4RAFL1I 

STUP 

200 

CALL 

TEXT (NPAFL2,D,ISTR51,LRSTAR,1, 0,3,4RPRP4» 

STUP 

201 

CALL 

TEXTINPDHN1,0,ISTR62,LRSTAR,1, 0,3,4RPRP6) 

STUP 

202 

CALL 

TEXT  (NPDMN2,0,ISTRS2,LRSTAR,1, 0,3,4RDHN2t 

STUP 

203 

C 

STUP 

204 

tsi 

C 

CREATE 

TEXT  ENTITIES  IN  THE  LOWER  LEFT  HAND  CORNER  OF  THE  SCREEN 

STUP 

205 

C 

MHICH  DISPLAY  BLINKING  ASTERISKS  INDICATING  THE  CURRENT  PROGRAM  STEP 

STUP 

206 

CALL 

TEXT<NCUPS1,1,ISTR22,LRSTAR,1,1,3) 

STUP 

207 

CALL 

TEXT  (NCUPS2,1,ISTR32,LRSTAR,1,1,3> 

STUP 

2oa 

CALL 

TEXT(NCAFU2,1,ISTR43,LRSTAR,1,1,3» 

STUP 

209 

225 

CALL 

TEXT(NCAFL2,1,ISTR51,LRSTAR,1,1,3) 

STUP 

210 

CALL 

TEXT(NCAFU3,1,ISTR53,LRSTAR,1,1,3) 

STUP 

211 

CALL 

TEXT  {NC0HN1,1,ISTR62,LRSTAR,1,1,3) 

STUP 

212 

CALL 

TEXT (n:0HN2,1,ISTR52,LRSTAR,1,1,3> 

STUP 

213 

call 

POINT<10. ,0. ,PTGRF2* 

STUP 

214 

230 

call 

T EXT  <LRN0G0,1,PTGRF2,  NOGOB,  22) 

STUP 

219 

CALL 

TEXT  (LRSUB,0,PTLR24,NSU3,8,0,3,4RPRPi*) 

STUP 

216 

CALL 

TEXT (LRSUPR,Q,PTLR23,NSUPR,10, 0, 3,4RPRP3) 

STUP 

217 

CALL 

TEXT(NLGRNG,0,PTLR22,IV£L1,19, 0,3,4RCHGV) 

STUP 

210 

call 

TEXT  (NPARAB.O ,PTLR22,IVEL2,1B, 0, 3,4RCHGW) 

STUP 

219 

235 

CALL 

LITBNdXLRd)  ,IYLRll)  ,IPRC0,2,1,‘.RPRP1) 

STUP 

220 

C 

STUP 

221 

c 

CREATE 

LIGHT  BUTTONS  FOR  COMPUTATION  OF  THE  CURRENT  PROGRAM  STEP 

STUP 

222 

call 

LITBNdXCM,  ITCH,  IC0MP,7,2,4RUPS1> 

STUP 

223 

CALL 

LITBN<IXCM,IYCH,ICOMP,7,3,4RUPS2) 

STUP 

224 

2H0 

call 

LITBNtlXCM, IYCM,1C0MP,7,4,4RAFU2> 

STUP 

225 

CALL 

LITBNdXCM, IYCM,IC0MP,7,5,4RAFL2> 

STUP 

226 

call 

LITBNdXCMjIYCM,  ICOMP , 7 ,6 , 4RAFU3) 

STUP 

227 

call 

LITBNdXCM,  I YCM,  ICOMP, 7 , 7 , 4ROHN1) 

STUP 

220 

call 

LIT9N«-56,-56,NST0P,4,20,4RSI0P) 

STUP 

229 

2«»5 

c 

STUP 

230 

c 

ENABLE 

ALL  TEXT  AND  POLYLINE  ENTITIES 

STUP 

231 

call 

ENG0S(1,NALU 

STUP 

232 

CALL 

AETSKC(-*LSTRT1 

STUP 

23  3 

END 

STUP 

234 
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10 


15 


20 


25 


30 


35 


C 

C 

C 


c 

c 


OVERLAY! 1.0) 
RR06RAN  STRT 


THIS  PROGRAM  DISPLAYS  THE  FLOH  VARIABLES 


COMRON/INPUTY 

1 LRUPStb)  ,LRSTC!6)  ,LRAFU2!6I 

2 ,LR0IEQ!SI  iLRXSEQ(6l  •LRXAUPI6) 

3 ,LRSLEQttl  .LRHACHI6I  tLRALFAIbt 

■>  ,LRNN1I6)  ,LRNA2!6t  ,LRNN3(6t 

S ,m.GRNGI6)  •NPARAS<6) 

COHHON/NOUT/  NAIRFL(6I 

1 ,LR0EEQ!6)  ,LRYS0a<6»  ,LRYStQ(6) 

2 ,LRI0(6)  ,L«P0EQ!6I  ,URN0&0(6» 

COMRON/NPRCO/  NCUPSH6I  ,NCUPS2!6> 

1 ,NC0HN1!6I ,NCOHN2(6l ,NPUPS1(6I 

2 ,NPAFU3(6I ,NPAFL1I6) *NPAFL2(6» 

3 ,NAF1I6)  ,NAF2!6) 

COMMON/NAXESF  NALL<6) 

1 ,NHXB(6I  ,NUP0(6)  ,N0U0XB(6) 

2 ,NX1B(6)  ,NX2B(6)  ,NYB(6» 

3 ,NDU1B(6I  ,NOU2B(6l  ,N0DQ3(6I 

COMMON  C iCK  »RS 

COMMON/ISSCAL/IOSCAL 
DIMENSION  LBIQ<2J 

DATA  LBID/1,20/ 

CALL  ASCALIl) 

CALL  ERASEINALLI 
CALL  £RASG<IOSCAL» 

CALL  ERASG(IQSCAL-I) 

CALL  GENDF<NAIRFL,  0) 

CALL  ENLB(2,L0IO) 

CALL  G£N0F!LRSTRT, 01 


,LRAFL2(6) 
• LRCTDUI6I 
,LRriU!6> 
•LRNNLI6) 


,LR00EQ<6) 

,LRSUai6» 

,NCAFU2(6) 

,N«»UPS2!b) 

,N<»DHN1I6» 


,NAF3B(6> 

,NMB(6t 

,NP0B(6) 

«FM 


,LRAFU3(6> 

,LRXALN(6I 

,LRYIL(6I 

,LRNN5(6> 


,LRRUEQ(6) 

,LRSUPR(6) 

,NCAFl2!6) 

,NPAFU1(6» 

,NPDHN2(6I 


,N0MNB(6> 

,NM01B(b) 

,NP18(6> 

(ALPHA 


(LRXOOqCAl 

,LRCVDL(6I 

,LRSTRT<6) 

(LRNN6I6I 


,LRUBEQ(6) 

(LRFl0M(6> 

(NUAFD3(6) 

,NPAFU2(6) 

,NUPS(6) 


(NKTABI6I 

,NM028(6) 

(NPKTABC&I 


WAIT  FOR  AN  AYTENTION  SOURCE 
CALL  WAITEIDUM,0(DUM,OUM« 
END 


STRT 

STRT 

STRT 

STRT 

STRT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

NOUT 

NOUT 

NOUT 

NPRCO 

NPRCO 

NPRCD 

NPRCO 

MAXES 

MAXES 

MAXES 

MAXES 

COMMOM 

ISSCAL 

STRT 

STRT 

STRT 

STRT 

STRT 

STRT 

STRT 

STRT 

STRT 

STRT 

STRT 

STRT 

STRT 


2 

1 
L 

5 

6 

2 

1 
% 

5 

6 
J 

2 
3 
L 
2 

3 

4 

5 
2 

3 

4 

5 
2 
2 

13 

14 

15 
lb 
IT 
10 
18 
20 
21 
22 

23 

24 

25 
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OVERLAY  C<»,ei 

PRPl 

2 

RROCRAN  RRPl 

PRPl 

3 

C 

PRPl 

4 

C 

THIS  PROGRAM  DISPLAYS  ITEMS  NEEDED 

FOR  PROGRAM  UPSl 

PRPl 

5 

» 

C 

PRPl 

6 

COMMON/INPUTP 

INPUT 

2 

1 LRUPSIbt  ,LRSTG(6)  •LRAPU2(6I 

,LRAFL2<6) 

.LRAFU3I6) 

iLRX00Q(6l 

INPUT 

I 

2 >LROIEQ(»l •LRXSEatet >LRXAUP(6t 

,LRCYDU(6» 

«LRXALH(6) 

,LRCYDL(SI 

INPUT 

4 

3 iLRSLEQU)  •LRMACH(6)  •LRALFA(6I 

• LRTIUC6) 

,LRTIL(6) 

•LRSTRTI6I 

INPUT 

5 

11 

k ,LRNM1(6I  ,LRNA2(6I  ,LRNN3l6t 

• LRNN4l6t 

(LRNN5C6) 

,LRNN6(6> 

INPUT 

6 

5 ,NLSRNGf6)  .NPARAB(6I 

INPUT 

T 

COHMON/NOUT/  NAIRFL(6) 

Nour 

2 

1 ,LRDEEa(6) ,LRTS0Q(6t «LRYSEQ(6) 

,LRD0£Q(6I 

,LRRUEQC6I 

,LRUB£Q(6I 

NOUT 

J 

2 tLRIDIS)  ,LRP0EQ(6I  iLRNOGOiei 

,LRSUB(6I 

,LRSUPK(6) 

,LRFL0H(6I 

NOUT 

4 

15 

COMMON/NPRCO/  NCUPSK6I  ,NCUPS2(6) 

,NCAFU2i6> 

,NCAFL2(6) 

,NCAFU3  (61 

NPRCD 

2 

1 ,NCDHN1(6) ,NC0HN2(6I ,NPUPS1I6) 

,NPUPS2(6» 

tNPAFUl(6) 

,NPAFJ2(6» 

NPRCO 

J 

2 ,NPAFU3(6I  ,NPAFL1(6)  ,NPAFL2C6t 

,NPDMN1(6) 

,NP0HN2<6) 

,NUPS(6) 

NPRCO 

4 

3 >NAF1|6)  ,NAF2C6) 

NPRCO 

5 

COMNON/NAXES/  NALL  161 

NAXES 

2 

za 

1 •NHXBI6I  ,NUP8(6)  ,N0UDXB(6) 

,NAF3B(6) 

,N0MN3(6) 

,NKTAB(6) 

MAXES 

J 

2 ,NXiaC6)  ,NX2B(6)  ,NYB(6) 

,NMB(6) 

,NM01B(6) 

,NM02B(6I 

NAXES 

4 

3 tN0UlB(6l  ,N0U2B(6I  ,N0DQB(6> 

,NPOB  (6) 

,NP1B(6) 

,NPKTAB(6) 

NAXES 

5 

COMMON  C ,CK  ,RS 

,FM 

, ALPHA 

COMMON 

2 

COMMON/AINPUT/AIN( 24)  .NNICTI 

,HI(6> 

AINPUT 

2 

25 

C0MM0N/TUVSAV/NNN<3)  ,YUV(126) 

YUVSAV 

2 

COMMON/PTARFL/XX(40,2)  ,YYC40,2I 

,AM(40,2) 

.CA 

.SA 

PTARFL 

2 

DIMENSION  LBI0<2) 

PRPl 

15 

DATA  LBIO/2,20/ 

PRPl 

16 

call  ASCALCll 

PRPl 

IT 

30 

CALL  ENLB(2,LBI0) 

PRPl 

15 

CALL  ERASE(LRSTRT) 

PRPl 

19 

call  GENOF(NCUPS1,0» 

PRPl 

20 

CALL  GENQPCNPUPS2, 0) 

PRPl 

21 

CALL  GENOF(LRUPS,0l  ' 

PRPl 

22 

35 

call  G£NOF(NUPB,a» 

PRPl 

23 

HRITE(6»100)  FM, ALPHA 

PRPl 

24 

100  FORMAT<1H1///20X,9HMACH  NO.=,F10. 

6,16H 

ALPHA 

=,F10.6) 

PRPl 

25 

CALL  HAIT£(DUM,0,OUM,OUM) 

PRPl 

26 

END 

PRPl 

22 
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OWERL»TI5,0» 

UPSl 

2 

RROGRAH  UPSl 

UPSl 

3 

c 

UPSl 

4 

c 

THIS  PROGROM  OISPLATS  OUTPUT  FROM  SUBROUTINE  UPSTRM 

UPSl 

5 

s 

c 

UPSl 

6 

CONMONFOUTCOM/ 

OUTCOM 

2 

1 X1I160)  (TUlBOt  ,T2(160t  iNNl  ,MN2 

OUTCOM 

3 

C0mi0N/C0MMXYFNXTH6)  ,NXY2(6» 

COMNXr 

2 

COHHON/INPUTF 

INPUT 

2 

IQ 

1 LRUPSC6I  ,LRSTG(6)  «L  R AFU2<  6»  •LRAFL2I  61  « LRAFU3  ( 6)  , LRXOOQ  ( 61 

INPUT 

3 

2 tLRQIE0(6l  >LRXSEQ(6)  ,LRXAUP(6)  >LRCTOU(6)  (LRIALMCEI  >LR:T0LI6) 

INPUT 

4 

3 ,LRSLEQ(6I  •LRMACH(6>  •LRALFAI6I  ,LRYIU(6>  ,LRTIL(6)  ,LRSTRT<6» 

INPUT 

5 

H ,LRNN1(6I  •LRNA2(6I  ,LRNN3(6t  ,LRNNH(6)  ,LRNN5(6I  ,LRNN6(6I 

INPUT 

6 

5 ,NLGRNG(6) |NPARAB(6) 

INPUT 

7 

15 

COMMON/NOUTF  NAIRFL<6) 

NOUT 

2 

1 ,LR0EEQ<6>  ,LRYS0QI6I  ,LRYSEQ«6»  ,LRD0£QI6»  ,LRRUEa<6>  ,LRUBEQ(6I 

NOUT 

3 

2 •LRtO(6)  ,LRP0E0(6)  ,LRM0G0l6t  ,LRSUB(6>  , LRSUPRI 61  , LRFLOM  ( 6> 

NOUT 

4 

COHHON/NCHARS/NNEQ  ,NAEO  , NXOOEQC  21  , N OV  I EQ(  2)  , NXSE3  ( 2) 

NCHARS 

. 2 

1 ,NYSOEQ(2) ,NXAEQ<2)  , NC YOEQt 21 >NSLEQI2>  ,NQEEQ(2>  ,NYSEQ(2) 

NCHARS 

3 

20 

2 ,N0V0E3I2I  «NRUEQ(2)  ,NUBEQ(2I  ,NIDC2)  , NMACHQI 2)  > NALPH  A ( 2) 

NCHARS 

4 

3 ,NTIUEQ(2>  ,NTILEQ(2)  ,NPOEQ(2>  ,FMTI  ,FMTF 

NCHARS 

5 

COMMON  C ,CK  ,RS  ,FM  , ALPHA 

COMMON 

2 

COMMON/BCOMF  XO  ,3¥00  ,L 

BCOM 

2 

COMMON/ECO«FASTAG<26)  ,XSTAG(11I  ,YSTAG(11)  , X AF  ( 5 0 ) . Y AF  ( 5 0 , 2) 

ECOM 

2 

25 

C0MM0N/AINPUT/AIN<2H»  ,NNI(2I  ,HI(6) 

AINPUT 

2 

COMMON/TUVSAVFNNNT 1)  ,YUVtl56) 

YUVSAV 

2 

COMMON/PIARFL/XX(HO,  2»  ,YT«40,2)  fAM(i.0,2>  ,CA  ,SA 

PTARFL 

2 

COMMON/ IS SCAL/ lose AL 

ISSCAL 

2 

DIMENSION  X2T£MP(10)  ,Y2TEHP(10>  ,X2<10) 

UPSl 

19 

30 

C = l.»5./FH»»2 

UPSl 

20 

CK  = 1. /f 1.4*FM»FM) 

UPSl 

21 

, CA  = COS<ALPHA/57.29577B5) 

UPSl 

22 

SA  = SIN<ALPHA/57. 29577951 

UPSl 

23 

CALL  ASCALdl 

UPSl 

24 

35 

CALL  ERASGdOSCALI 

UPSl 

25 

CALL  ERASGdOSCAL-lt 

UPSl 

26 

CALL  lOUPSTM 

UPSl 

27 

CALL  ERASE(LROEEO) 

UPSl 

28 

CALL  ERASEaRYSOQ) 

UPSl 

29 

HO 

c 

UPSl 

30 

c 

DISPLAY  THE  OUTPUT  VARIABLES  OE  ANO  YSO 

UPSl 

31 

CALL  ENSHFT(NOEEQ, 3) AIN«201 ,FMTF) 

UPSl 

32 

CALL  M00FT(LRDEEQ, 1,2,N0EEQ) 

UPSl 

33 

CALL  GENDF<LR0EEQ, 0) 

UPSl 

34 

H5 

CALL  ENSHFT(NTS0£a,4, AINT  211  ,FHTP) 

UPSl 

35 

call  MODFYTLRYSOQ, 1,2,NYS0E0) 

UPSl 

36 

CALL  GENOF«LRTSOQ,  0) 

UPSl 

37 

c 

UPSl 

38 

c 

GRAPHICALLY  DISPLAY  DATA  POINTS  IN  ARRAY  Xl-Yl 

UPSl 

39 

50 

call  PL OTT2(0., 1.0, 0.0, 0.8, 0.0, 1.0, 11 

UPSl 

40 

IF  (NN2.GT.1)  GO  TO  10 

UPSl 

41 

c 

UPSl 

42 

c 

GRAPHICALLY  DISPLAY  DATA  POINTS  IN  ARRAY  X2-Y2 

UPSl 

43 

NN2  = 4 

UPSl 

44 

Y2(2)  = 1. 

UPSl 

46 

Y2(31  = 0. 

UPSl 

47 

Y2(4)  = 1. 

UPSl 

48 

Y2(ll)  = 0. 

UPSl 

49 

60 

Y2C12)  = 1. 

UPSl 

50 

Y2(13)  = 1. 

UPSl 

51 

Y2(14)  = 0. 

UPSl 

52 

10  DO  15  1=1, NN2 

UPSl 

53 

X2TEMPII)  = Y2(I) 

UPSl 

54 

65 

15  Y2TEMP<I)  = YEII  + IO) 

UPSl 

55 

NSWITCH  = NN2-1 

UPSl 

56 

DO  18  1 = 1, NN2 

UPSl 

57 

X2(I>  = X2T£MP(I+NSHITCH) 

UPSl 

58 

Y2(I)  = Y2TEMR(I*NSWITCH) 

UPSl 

59 

166 


o o 


IS  NSNITCH  X NSMITCH-2 

UPSl 

60 

fZHSx  « rzui 

UFSl 

61 

00  25  I«2.NN2 

UFSl 

62 

lF(Y2in-V2N»XI  25,25,22 

UPSl 

61 

22  T2HSX  « T2CI) 

UPSl 

6*, 

25  CONTINUE 

UPSl 

65 

X2HIN  ■ 0.0 

UPSl 

66 

T2HIN  * 0.0 

UPSl 

6T 

X2NAX  > X2INN2) 

UPSl 

6t 

CALL  AfTEA2Cr2MIN,r2NAX,X2NIN,X2MAX,2) 

UPSl 

69 

NXV2I5)  ■ 0 

UPSl 

rs 

CALL  OLETEtNXYZI 

UPSl 

ri 

NXT2(5)  * 61 

UPSl 

22 

CALL  PLTLN(NXY2,1,Y2(  11  ,X2I1>  ,NN2-1> 

UPSl 

21 

CALL  GENOF(NXY2,Ot 

UPSl 

26 

UPSl 

25 

WAIT  FOR  an  attention  SOURCE 

UPSl 

26 

CALL  HAITE(OUN,0,OUM,OUM) 

UPSl 

22 

END 

UPSl 

28 

167 


5 


10 


.15 


20 


25 


30 


35 


<»a 


OVERLAT(6,OI 

PRP2 

2 

RROGRAR  PRP2 

PRP2 

3 

PRP2 

4 

THIS  PROGRAM  OISPLAYS  ITEMS  NEEDED  FOR  PROGRAM  UPS2 

PRP2 

b 

C01fn0N/C0MNXT/NXTl(6>  ,NXY2I6I 

COMNXY 

2 

COMMON/INPUT/ 

INPUT 

2 

1 LRUPSCei  .LRSTG(6I  |LRAFU2 (6t  ,LRA FL21 6) 

,LRAFU3(6) 

iLRXOOOIbl 

INPUT 

3 

2 ,LR0IEQC6)  lERXEEQIG)  ,LRXAUPf6l  ,LRCY0U(6> 

,lRXALMI6> 

• LRCYOLIb) 

INPUT 

4 

3 |LRSLEQ(6)  ,LRMACH(6) |LRALFA(6>  tLRYIUlb) 

,LRriL(6> 

>LRSTRT(6) 

INPUT 

5 

4 ,LRNNlf6)  |LRNA2(6I  ,LRNN3(6)  ,LRNN4(6> 

,LRNN5(b> 

,LRNNb<6) 

INPUT 

6 

5 tNLGRNG(6) •NPARA3(6I 

INPUT 

T 

CONHON/NOUT/  NAIRFLIb) 

NOUT 

2 

1 iLRDEEQ(b)  ,LRYSOQ(bl  ,LRYSEQCbl  .LROOEOCb) 

,LRRUEQ(bl 

.LRUBEQIbl 

NOUT 

3 

2 iLRIDIb)  (LRPOEQIbt  ,LRNOGO(b)  ,LRSUB(b> 

fLRSUPR(b) 

>LRFLOM(bl 

NOUT 

4 

COMMON/NAXES/  NALUb) 

MAXES 

2 

1 ,NMXB(b)  ,NUPai6t  ,NOUQXB ( bl  t N AF3B (b> 

,NDHNB(6) 

fNKTABtb) 

MAXES 

3 

2 •NXlB(b)  iNX2B(b)  ,NYB(bl  ,NMB(b> 

,NM01B(6) 

tNM02B(b) 

MAXES 

4 

3 ,N0U1B(6>  iN0U2B(bl  ,NOOQB(bt  ,NPOB(b) 

,NP13(b> 

iNPKTABCbi 

NAXES 

5 

COHBON/NPRCO/  NCUPSK6)  ,NCUPS2t61  ,NCAFU2lb) 

,NCAFL2<6) 

,NCAFU3(b) 

NPRC3 

2 

1 .NCOHNUb)  ,NC0HN2(6>  jNPUPSKbl  ,NPUPS2(6) 

,NPAFU1(6) 

tNPAFU2(b> 

NPRCD 

3 

2 .NPAFUKb)  ,NPAFLl(b)  ,NPAFL2I6»  ,NPOHNllb» 

,NP0HN2(6) 

•NUPS(b) 

NPRCD 

4 

3 iNAFl(b)  ,NAF2(bl 

NPRCO 

5 

COMMON/ICNTRL/J  ,ICRIT(2)  ,LU2> 

,IGO(2) 

ICNTRL 

2 

COMM ON/ ISSCAL/ lose AL 

ISSCAL 

2 

DIMENSION  LBID(2» 

PRP2 

13 

DATA  LaiD/3,20/ 

PRP2 

14 

IGOai  = 0 

PRP2 

15 

IG0(2)  = a 

PRP2 

lb 

NXYH5I  = 0 

PRP2 

IT 

NXYl(b)  = 0 

PRP2 

IS 

CALL  DLETEINXYi) 

PRP2 

19 

NXYH6)  =60 

PRP2 

20 

call  ASCALll) 

PRP2 

21 

CALL  ERASG(IOSCAL) 

PRP2 

22 

CALL  ERASG<IOSCAL-l) 

PRP2 

23 

CALL  ERASEINALL) 

PRP2 

24 

CALL  ENLS(2,LBID) 

PRP2 

25 

CALL  GENOF<NAIRFL, 0) 

PRP2 

2b 

call  GEN0F<NCUPS2, 0) 

PRP2 

2T 

call  G£NDF(NAF2, 01 

PRP2 

2S 

CALL  GENOF(LRSTG,0» 

PRP2 

29 

CALL  HAITE<DUM,0,OUM,DUM) 

PRP2 

30 

END 

PRP2 

31 
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OVERLAY(2,0) 

UPS2 

2 

PROGRAM  UPS2 

UPS2 

J 

C 

UPS2 

4 

c 

THIS  PROGRAM  DISPLAYS  OUTPUT  FROM  SUBROUTINt  lOSTGNA 

UPS2 

5 

5 

COMMON/NOUTF  NAIRFU6) 

NOUT 

2 

1 ,LR0EEa(6)  ,LRYS0Q(6)  ,IRYS£Q(6I  ,LRD0EQ(6>  ,LRRUEQ(6)  ,LKUBEQ(6I 

NOUT 

3 

2 ,LRI0(6)  ,LRP0EQ(6)  ,LRN0G0(6)  ,LRSU3(6>  , LRSUPRC 6)  ,LRFLOM( 6) 

NOUT 

4 

COMHON/NCHARS/NNEO  (NAEQ  ,NXOOEQ( 2)  ,NDY I E3( 2)  ,NXS EQ ( 2) 

NCHARS 

2 

1 ,NTS0EDT2) ,NXAEQ(2)  .NCYDEQI 2) ,NSLEQ(2)  ,NJEEQ(2)  ,NYS£Q(2» 

NCHARS 

3 

10 

2 ,NDV0EQ<2)  ,NRUEQ(2)  ,NUB£Q«2)  ,NID(2)  , NMACHQl  2)  , RALPH  A ( 21 

NCHARS 

4 

3 ,NYIUE0(2»  ,NYILEQ(2)  ,NP0EQ<2)  ,FMTI  ,FMTF 

NCHARS 

5 

COMMON/NPRCO/  NCUPSK6J  ,NCUPS2(6)  ,NCAFU2(6)  ,NCAFL2C6»  ,NCAFU316I 

NPRCO 

2 

1 ,NC0HNH61  ,NCDHN2(6I  ,NPUPS116)  ,NPUOS2<6)  ,NPAFUH6)  ,NPAFU2(6) 

NPRCD 

1 

2 ,NPAFU3(6) ,NPAFL1(6» ,NPAFL2<6» ,NPDHN1(6) ,NP0MN2(6) ,NUPS(6) 

NPRCO 

4 

15 

3 ,NAF1(6)  ,NAF2<61 

NPRCD 

5 

COMMON  C ,CK  ,RS  ,PM  .AL^HA 

COMMON 

2 

COMMONFBCOM/  XO  ,OWOO  ,L 

3COM 

2 

C0MM0N/EC0M/ASTAG<26)  .XSTAGdl)  .YSTAGdl)  , X AF  { 5 0)  , Y AF  ( 5 0 , 2» 

ECOM 

2 

COMMONXAINPUT/AIN(  2H)  .NNIITJ  ,HI(6» 

AINPUT 

2 

20 

COMMON/PTARFL/XX<40,2)  ,YY(40,2)  ,AMI40,2>  ,CA  ,SA 

pta'rfl 

2 

DIMENSION  XINF  (2»  , YINF<  2»  , XSTGdl)  , YST  G (1 1)  , X LOME Rl  50  ),  YL  ONER (50»  , 

UPS2 

14 

1XU®PER(50)  ,YUPPERT50) 

UPS2 

15 

DIMENSION  NXYUPR(6) , NXYLHR ( 6) , NXYST G( 6 ) ,NYO I NF ( 6» ,NNNALLI6) 

UPS2 

16 

DATA  NXYUPRjNX YLHR,NXYSTG,NYOINF,NNNALL/6»50, 50 ,5»52, 50,5*53, 

UPS2 

17 

25 

1 50,5*54,50,5*0/ 

UPS2 

IS 

CALL  lOSTGNA 

UPS2 

19 

call  ASCALd) 

UPS2 

20 

CALL  OLETE(NNNALL) 

UPS2 

21 

CALL  ERASE(LRDOEQ) 

UPS2 

22 

30 

c 

UPS2 

23 

c 

ERASE  TEXT  ENTITIES  PREVIOUSLY  0IS°LAYE0  BY  THIS  PROGRAM 

UPS  2 

24 

CALL  ERASE(LRYSEQ) 

UPS2 

25 

• YSPYSO  =-AINl21) -AIN<22) 

UPS2 

26 

OE  = AIN(20I 

UPS2 

27 

35 

YLHR  = AMIN1(YAF(50,2) , YSPYSO) 

UPS2 

28 

c 

UPS2 

29 

c 

DETERMINE  THE  SCALING  FACTORS  FOR  THE  SCREEN  OIS»LAY 

UPS2 

30 

AMULTX  = 114./<XAF(5Q)  -XSTAGd)) 

UPS2 

31 

AMULTY  = 100./(-YLWR) 

UPS2 

32 

40 

AMULT  = AMULTX 

UPS2 

33 

IF(AMULTX.GT. AMULTY)  AMULT  = AMULTY 

UPS2 

34 

OE  = AIN<20) 

UPS2 

35 

c 

UPS2 

36 

c 

determine  data  points  for  the  first  -3  PER  CENT  OF  THE  UPPER  AND 

UPS2 

37 

45 

c 

LOWER  SURFACES  OF  THE  AIRFOIL 

UPS2 

33 

DO  10  1=1,50 

UPS2 

39 

YUPPER(I)  = -4C.4IYAF(I,1)-YLHR)*AMULT 

UPS2 

40 

IF  (YUPPER  (I)  .GT.  57  .)  GO  TO  15 

UPS2 

41 

XUPPER(I)  = -57.  + (XAF(I)  +OE)*AM'JLT 

UPS2 

42 

50 

10  CONTINUE 

UPS2 

43 

1 = 51 

UPS2 

44 

15  CALL  PLYLNINXYUPR, 1,XUPPER, YUPPER, 1-2) 

UPS2 

45 

DO  20  1=1,50 

UPS2 

■ 46 

XLOWER(I)  = -57.4(XAFII)  +QE)»AMULT 

UPS2 

47 

55 

YLOWER(I)  = -40.  + «YAF(I,2)-YlHR)*AMULT 

UPS2 

4S 

20  CONTINUE 

UPS2 

49 

CALL  PLYLN(NXYLHR,1,XL0HER,YL0WER,49) 

UPS2 

50 

c 

UPS2 

51 

c 

DISPLAY  THE  OUTPUT  VARIABLES  YS  AND  OVOO'^ 

UPS2 

52 

oO 

CALL  ENSHFT(NYSE0,I,AIN(22) ,FMTF) 

UPS2 

53 

call  MODFYTLRYSEQ, 1,2,NYSlO) 

UPS2 

54 

CALL  G-NDF(LRYSEQ,  0) 

UPS2 

55 

call  ENSHFT(NDV0EQ,8,ASTAG(4»  ,£41“^) 

UPS2 

56 

CALL  hoOFY(^ROCEQ, 1,2,NDV0E0) 

UPS2 

57 

65 

call  GENOF(LROOEC,  0) 

UPS2 

58 

c 

UPS2 

59 

OETER“INE  DATA  POINTS  FOR  The  STAGNATION  STREAMLINE 

UPS2 

60 

DO  25  1=1,11 

UPS2 

6 1 

XSTG(I)  = -57.+(XSTAG(I)4DE)*AMULT 

UPS2 

62 
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YST&m  = -|*0.  + (YStAGin-rLHRJ'AMULr 

UPS2 

61 

35  CONTINUE 

UPS2 

bH 

call  PLYLNtNXYSTG  , 1,  XST  G , YSTG  , 1 01 

UPS2 

65 

XINFUl  = -57. 

UPS2 

66 

XINF(2I  = XSTGmi 

UPS2 

67 

YINF(l)  = -i»0.»(YSPYSO-TLHR)»AHULT 

UPS2 

6S 

YINF(2)  = YINFdl 

UPS2 

69 

call  PLYLNTNYOINF, 1»XINF,Y1NF,1> 

UPS2 

70 

UFS2 

71 

DISPLAY  AIRFOIL  NOSE  ANO  STAGNATION  STREANLINE 

UPS2 

72 

CALL  GENOFTNNNALL* 0) 

UPS2 

71 

UPS2 

Tk 

WAIT  FOR  an  attention  SOURCE 

UPS2 

75 

CALL  HAITE(DUN,0,DUN,DUM) 

UPS2 

7o 

END 

UPS2 

77 
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OVERLAYflOjOl 

AFUl 

2 

PROGRAIi  AFUl 

AFUl 

3 

C 

AFUl 

4 

C 

THIS  PROGRAM  OISPLAYS  OUTPUT  FROM  SUBROUTINE 

IOUPRCT 

AFUl 

5 

5 

c 

AFUl 

6 

COMMON/ICNTRL/J  ,ICRIT(2» 

,LL(2) 

,IG0(2) 

ICNTRL 

2 

CONMON/COMNXY/NXYK6)  |NXY2(6( 

COMNXY 

2 

COMMON/INPUT/ 

INPUT 

2 

1 LRUPS(6I  ,LRSTG«6)  ,LRAFU2I6) 

,LRAFL2(6) 

,LRAFU3(6) 

,LRX00Q(6I 

INPUT 

I 

10 

2 ,LRDIEQ16)  ,LRXSEQ(6»  ,LRXAUP(6I 

,LRCYOU(  6) 

,LRXALW(6) 

,LRCYBL(6) 

INPUT 

4 

3 ,LRSLE0«6) ,LRMACH(6) ,LRALFAIFI 

,LRYIUI6) 

,L.RYIL(6) 

,lRSTRT(6> 

INPUT 

5 

4 ,LRNN1(6)  .LRNA2I6I  ,LRNN3(6I 

,LRNN4 (61 

,LRNN3(6) 

,LRNN6(6) 

INPUT 

6 

5 ,NLGRNG<6» ,NPARA8(6) 

INPUT 

T 

COMMONFNOUT/  NAIRFKG) 

NOUT 

2 

15 

1 ,LRDEEQ<6)  ,LRYS0Q<6J  ,LRYS£0(61 

,LR00FQ(6) 

,LRRUEQ(6I 

,LRUBEQ(6I 

NOUT 

1 

2 ,LRI0(6>  ,LRP0EQ<5I ,lRN0G0(6I 

,LRSUB(6) 

,LRSUPR(6) 

,LRFL0H(6) 

NOUT 

4 

COMMON/NAXE3/  NALL<6) 

NAXES 

2 

1 ,NMXB(6)  ,NUP8(6>  ,NDU0XBT6) 

,NAF39(6) 

,NDWNB(6) 

,NKTAB(6) 

NAXES 

1 

2 ,NX13(6)  ,NX28<6)  ,NY6(o) 

,NMB(6) 

,NM01S(6) 

,NM02B(6) 

NAXES 

4 

20 

3 ,N0U13{6)  ,N0U2B(6)  ,NDDQ9(6» 

,NP03(6) 

,NP13(6) 

,NPKTAB(6» 

NAXES 

5 

COMMON  C ,C<  ,RS 

,FM 

.ALPHA 

COMMON 

2 

C0MH0N/AINPUT/AIN(241  ,NNIC7I 

,HI (6) 

AINPUT 

2 

COMMON/YUtfSAW/NNN(  3)  ,YUVtl56) 

YUVSAV 

2 

COMMON/PTARFL/XX(40,2>  ,YY(40,2) 

,AM(40,2J 

,CA 

,SA 

PTARFL 

2 

25 

COMMON/NPRCOr  NCUPSK6)  ,NCUPS2C6» 

,NCAFU2(6) 

,NCAFL2I6I 

,NCAFU3 (6> 

NPRCO 

2 

1 ,NC0WN1(6) ,NCDWN2(6) ,NPUPS1(6I 

,NPUPS2(6) 

,NPAFU1(6) 

,NPAFU2(6I 

NPRCD 

3 

2 ,NPAFU3(6) ,NPAFL1(6» ,NPAFL2(b) 

,NP3WN1(6) 

,NPDWN2(6) 

,NUPS(ol 

NPRCO 

4 

3 ,NAFl(6)  ,NAF2(bl 

NPRCO 

5 

COMMON/ISSCAL/IOSCAL 

ISSCAl 

2 

30 

NXYK5)  = 0 

AFUl 

13 

NXY116)  = 0 

AFUl 

19 

CALL  DLFTE(NXYl) 

‘ 

AFUl 

20 

NXYK6I  = 60 

AFUl 

21 

call  ASCALdI 

AFUl 

22 

35 

CALL  ERASG(IOSCAL) 

AFUl 

23 

call  ERASG(IOSCAL-I) 

AFUl 

24 

CALL  ERASH(NALL1 

AFUl 

25 

CALL  £NL3<1,20) 

AFUl 

26 

CALL  GENOF(NAIRFL,0) 

AFUl 

27 

<»0 

call  GEND‘^<NUPSi  0) 

AFUl 

28 

J=1 

AFUl 

29 

LL(JI  = 1 

AFUl 

30 

call  GENDF(NlGRNG, 0) 

AFUl 

31 

CALL  3ENOF(LRFLOW, 0) 

AFUl 

32 

1*5 

CALL  GEN3F(NMXP, Ot 

AFUl 

33 

call  IOUPRCT 

AFUl 

34 

call  PLOTTK  0.  0 ,0  . 06, 0.  0,  1*  0) 

AFUl 

35 

c 

AFUl 

36 

c 

WAIT  FOR  AN  ATTENTION  SOURCE 

AFUl 

37 

50 

CALL  WAIT£(BUN,0,ID,OUM) 

AFUl 

38 

END 

AFUl 

39 
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10 


15 


20 


25 


30 


35 


40 


OVERLAT(11,0»  I»RP3 

PROGRAM  PRP3  PRP3 

C PRP3 

C this  program  displays  items  needed  for  program  AFU2  PRP3 

C PRP3 

COMMONFCOMNXTFNXYl  (6)  ,NXT2(6)  COMNXT 

COMMON/ICNTRLY  J ,ICRII<2»  ,LH2)  ,IG0(2)  ICNTRL 

COMMON/INPUTF  INPUT 

1 LRUPS(6I  ,LRSTGI6)  ,L RAFU2 <6» ,L RAFL 2( 6) , L RAFU3 ( 6» , LRXOOQ ( 6)  INPUT 

2 ,LR0IEQ(6I  ,LRXSE0t6)  ,LRXAUP<6)  ,LRCT0U«6»  ,LRXALH(6)  ,LRCYDL(6)  INPUT 

3 ,LRSLEQ(b)  ,LRMACMT6)  ,LRALFA(6>  ,LRTlU(b>  ,LRYIL{6)  ,LRSTRT(6»  INPUT 

4 ,LRNN1(6)  ,LRNA2(6»  ,LRNN3(6»  ,LRNN4lb)  ,lRNN5(6»  ,LRNNb(6)  INPUT 

5 ,NLGRNGT6)  ,NPARAB(6I  INPUT 

COMMON/NOUTY  NAIRFL(6)  NOUT 

1 ,LR0EE0<6)  ,LRYS0Q(6)  ,LRYSEQ(6)  ,LR00EQ(6)  ,lRRUE0(6I  ,LRUBEQ(5)  NOUT 

2 ,LRID(6)  ,LRP0Ea<6)  ,LRN0G0(6)  ,LRSUP(6)  , LRS  UPR(  6)  , LRFLO  H ( 6)  NOUT 

COMMONYNAXESY  NALL<6t  NAXES 

1 ,NMXB(6)  ,NUP3(6)  , NOUOXB « 61 ,N AF 3B (6 ) ,NJRNB(6)  ,NKTAB(6)  NAXES 

2 ,NX18(6)  ,NX2B(61  ,NYB<6)  ,NMB(6)  ,NM01QI6>  ,NM023(6)  NAXES 

3 ,NDU13(6I  ,N0U2B(6)  ,N00QJ<6)  ,NP03(6)  ,NPlJ(b)  ,NP<TAB<6I  NAXES 

COMMON/NPRCD/  NCUPSK6)  ,NCUPS2T6»  ,NCAFU2(6)  ,NCAFL2(b)  ,NCAFU3<b»  NPrCO 

1 jNCDWNHb)  ,NCDHN2(6)  ,NPUPS1(F)  ,NPUPS2(b)  .NPAFUKb)  ,NPAFU2(b)  NPRCD 

2 ,NPAFU3<b),N»AFLl(b),NPAFL2(6) ,NPDHNl(b> ,NP0HN2tb) ,NUPS(b)  NPRCD 

3 ,NAFl(bI  ,NAF2(b)  NPRCO 

DIMENSION  10(b)  PRP3 

DIMENSION  LBI0<2)  PRP3 

DATA  1310/4,20/  PRP3 

CALL  S»NF0(ITRN,I0)  PRP3 

J=1  PRP3 

ICRIT(J)  = I0<3)  PRP3 

C PRP3 

C -A  VALUE  OF  ICRIKJ)^!  IS  ALLOWED  “^OR  THIS  VARIA3;.E,  OTHERWISE  TH^  PRP3 

C PROGRAM  AWAITS  ANOTHER  ATTENTION  SOURCE  PRP3 

IF(ICRIT( J) .EQ.2)  call  WA I T E ( OUM , 0 , OUM , DUM ) PRP3 

CALL  ASCAL(l)  PRP3 

call  ERASE(NALL)  PRP3 

CALL  ENLB<2,L3I0)  PRP3 

CALL  GENDF(NAIRFL, 0)  »RP3 

CALL  GEN0F(NCAFU2. 0)  PRP3 

call  GENOFTNUPS,  0)  PRP3 

CALL  GEN0F(LRAFU2, 0)  PRP3 

call  GEN0F(N0U0X3, 01  PRP3 

call  WAITE(OUM,0,OUM,OUM)  PRP3 

END  PRP3 


2 

3 

4 

5 
b 
2 
2 
2 
3 


b 

/ 

2 

3 

4 
2 

3 

4 

5 
2 
3 


13 

IM 

15 

lb 

17 

13 

19 

20 
21 
22 
23 
2h 
25 
2b 

27 

28 

29 

30 

31 

32 
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OVERLAr(12,OI 

AFU2 

2 

PROGRAH  AFU2 

AFU2 

1 

C 

AFU2 

4 

C 

THIS  SUBROUTINE  DISPLAYS  OUTPUT  FRON  SUBROUTINE  lOUPRIN 

AFU2 

5 

5 

CONPON/OUTCONF 

OUTCOM 

2 

1 Xl(160>  ,T1(160)  ,T2(160)  «NN1  ,NN2 

OUTCOM 

J 

COHHON/ICNTRL/J  ,1CRIT(2)  ,LL(2)  ,IG0(2) 

ICNTRL 

2 

CONnON/NOUT/  NAIRFU&t 

NOUT 

2 

1 ,LRDEEQ(6I  ,LRTS0Q(5)  ,LRVSEQ(6)  .LROOEOIGI  ,LKRUEQ(6)  ,LRUBtQI6> 

NOUT 

3 

10 

2 ,LRID(6»  ,LRP0EQ(6)  ,LRN0S0«6)  ,LRSUBI6)  ,LRSUPR«  6)  ,LRFL0H(6) 

NOUT 

4 

COHNON/NCHARSFNNEC  ,NAEQ  ,NXOOE  Q(  2)  , NOV  I E0<  2)  , NXSEQ  ( 2 ) 

NCHARS 

2 

1 ,NTS0EQ(2I  ,NXAEQ(2)  ,NC YOEQI 21  ,NSL EQ (21  ,NDEEQ(2)  ,NYSE3(2) 

NCHARS 

3 

2 |NDV0EQI2»  ,NRUEQ<2)  ,NU3£a(2»  ,NID(2»  , NMA  UHO(  2)  , N Al  PHA  ( 2) 

NCHARS 

4 

3 ,NTIUE3(2I  ,NTILEai2)  ,NP0Ea(2)  ,FHTI  ,FHTF 

NCHARS 

5 

15 

COMHON/NPRCO/  NCUPSK6)  ,NCU  = 32(6I  ,NCAFU2(6)  ,NCAFL2(6»  ,NCAFU3(6) 

NPRCO 

2 

1 ,NCQHN1(6» ,NC0HN2(6I ,NPUPS1(6) ,NPU°S2t6) ,NPAFU1(6) ,NPAFU2(6) 

NPRCO 

3 

2 ,NPAFU3(6»  ,NPAFL1(6)  ,NPAFL2(6)  ,NP0HNH6>  ,NPJHN2(6)  ,NUPSC6) 

NPRCO 

4 

3 ,NAF1(61  ,NAF2(6I 

NPRCO 

5 

COMMON  C ,CK  ,RS  ,FM  ,AL»HA 

COMMON 

2 

20 

C0MM0N/AINPUT/AIN(24)  ,NN1(7)  ,HI(6) 

AINPUT 

2 

C0MM0N/YUVSAV7NNN<3)  ,TUV(156) 

YUVSAV 

2 

COMMON/PTARFL/XX(40,2)  ,YY(40,2I  ,AM(i.0,2»  ,CA  ,SA 

PTARFL 

2 

C0MM0N/RBU6CM/R3UR  .UBINIT  ,IR3UR 

R3UBCM 

2 

COMMON/ I SSCAL/ lose AL 

ISSCAL 

2 

25 

CALL  ASCAL(l) 

AFU2 

1/ 

CALL  ERASGdOSCALJ 

AFU2 

It 

CALL  ERASG(I0SCAL-U 

AFU2 

19 

c 

AFU2 

20 

c 

ERASE  TEXT  ENTITIES  PREVIOUSLY  OISPLAYEO  BT  THIS  “RUGRAM 

AFU2 

21 

30 

call  ERASE(LRNOGO) 

AFU2 

22 

call  ERASECLRRUEQl 

AFU2 

23 

CALL  ERASE(LRID) 

AFU2 

24 

call  ERASE(LRUBEQI  ■ 

AFU2 

25 

IICRIT  = ICRIKJ) 

AFU2 

25 

35 

CALL  lOUPRINdlCRITI 

AFU2 

27 

c 

OEPENOING  ON  THE  VALUE  OF  NN2,  DISPLAY  TEXT  ENTITIES  RELATING  THE 

AFU2 

2t 

c 

STATUS  OF  THE  INTEGRATION  PROCESS 

AFU2 

29 

IF(NN2.NE.1I  call  GENOF  ( LRNOGO  , 01 

AFU2 

30 

IF(NN2.£Q.l)  CALL  GENOF  (NPAPU3, 0) 

AFU2 

31 

40 

c 

AFU2 

32 

c 

OISPLAY  THE  OUTPUT  VALUES  OF  R3UB  AND  U3 

AFU2 

33 

CALL  ENSHFT<NRUEQ,5,RRU3,FMTF» 

AFU2 

34 

call  H00FY(LRRUEQ,1.2tNRUE3) 

AFU2 

35 

call  GENDF(lRRUEQ,0) 

AFU2 

36 

45 

IF(IR3U8.EQ.O)  GO  TO  4 

AFU2 

37 

IF <IR3UB. EQ. 2»  CALL  GENOF (LRI D , 0 ) 

AFU2 

3t 

GO  TO  6 

AFU2 

39 

4 CALL  ENSHFT(NU6EQ, 3, UBINIT, FHTF) 

AFU2 

40 

CALL  MOOFY(LRUBEO,1,2,NU3EQ) 

AFU2 

41 

50 

CALL  GENDF(lRUBEO,Q) 

AFU2 

42 

6 CONTINUE 

AFU2 

43 

DO  10  1=1, NNl 

AFU2 

44 

13  Y1  (I)  = Y2d) 

AFU2 

45 

CALL  PLOTT(3.0,0.a4,3.0,20.0) 

AFU2 

46 

55 

c 

AFU2 

47 

c 

HAIT  FOR  AN  ATTENTION  SOURCE 

AFU2 

48 

CALL  HAITECOUM, 0,DUH,DUM) 

AFU2 

49 

END 

AFU2 

5 0 
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5 


ID 


16 


20 


25 


30 


35 


**0 


45 


OVERLATl  13,0» 

AFLl 

2 

PROGRAM  AFLl 

AFLl 

3 

COMMON/ICNTRL/J 

,ICRITC2» 

,LL<2» 

,IGO(2J 

ICNTRl 

2 

C0NM0N/C0MNXT/NXYK6) 

,NXY2(6> 

COMNXY 

2 

COMMON/INPUTF 

INPUT 

2 

1 LRUPS(6»  ,LRSTG(61 

,LRAFU2<6) 

,LRAFL2(6) 

,LRAFU3I6) 

,LRX00Q(6) 

INPUT 

J 

2 ,LR0IEa«6»  ,LRXSEQ(6) 

,LRXAUP(6I 

,LRCYDU(6) 

,LRXALM(  6) 

,LRCY0L<6) 

INPUT 

4 

3 ,LRSLEQ<6) ,LRMACH(5) 

,LRALFA(6> 

,LRYIU(6) 

,LRYIL (6) 

,lRSTRT  (61 

INPUT 

5 

4 ,LRNNl(6i  ,LRNA2(6) 

,LRNN3(6) 

,LRNN4(6) 

,LRNN5(6) 

,LRNN6(6) 

INPUT 

6 

5 ,NLGRNG(6) , NPARA5I M 

INPUT 

T 

COMMON/NOUTF  NAIRFL(6) 

NOUT 

2 

1 ,LR0EEQC61  .LRYSOOCfel 

,LRY3Eii<6) 

,LR00EQ(6I 

,LRRUEU(6I 

,LRUBEQ(6> 

NOUT 

1 

2 ,LRID(6)  ,LRP0EQ(6) 

,LRN030<6I 

,LRSUB(6) 

,LRSUPR(6) 

,LRFL0H(6) 

NOUT 

4 

COMMONFNAXESF  NALL  (6) 

NAXES 

2 

1 ,NMXB<6)  ,NUPB(6l 

,NDU0X8<6) 

,NAF3B(o) 

,N0MNB(6) 

,NKTA3(6) 

NAXES 

3 

2 ,NX13(b)  ,NX2B(6> 

,NYB<6) 

,NMB(6) 

,NM01B(6) 

,NM02B(6) 

NAXES 

4 

3 ,NDU1B(6)  ,NBU^3(6) 

,N00QB(6) 

,NP08«6) 

,NP19<6) 

,NP<TAB(6) 

NAXES 

5 

COMMON/NPRCOF  NCUPSK6) 

,NCUPS2(6) 

,NCAFU2<6) 

,NCAFL2(6) 

,NCAFU3(6) 

NPRCO 

2 

1 ,NC0HNH6I  , NCDHN2(  61 

,NPUPS1<6) 

,NPUPS2(6) 

,NPAFUl(b) 

,NPAFJ2(6> 

NPRCD 

3 

2 ,NPAFU3(6) ,NPAFL1<6) 

,NPAFL2(6) 

,NPDHN1(6) 

,NPDWN2(6) 

,NUPS(6) 

NPRCa 

4 

3 ,NAFl(6)  ,NAF2(6) 

NPRCO 

5 

COMMON  C ,CK 

,RS 

,FM 

, ALPHA 

COMMON 

2 

COMMON/AINPUTXAINC  24) 

,NNI(2) 

,HH6) 

AINPUT 

2 

COMMONFTUVSAV/NNN<  31 

,TUV ( 156) 

YUVSAV 

2 

COMMON/PTARFL/XX (40, 2) 

,YY(40,2) 

,AM«40  ,2) 

,CA 

,SA 

PTARFL 

2 

COMMON/ISSCAL/IDSCAL 

ISSCAL 

2 

NXY1(5)  = 0 

AFLl 

15 

NXYK6I  = 0 

AFLl 

16 

call  0LETE(NXTU 

AFLl 

IT 

NXYK6)  - 60 

AFLl 

18 

call  ASCAL(l) 

AFLl 

19 

call  ERASG< I03CAL) 

AFLl 

20 

CALL  ERASG(IOSCAL-I) 

AFLl 

21 

call  ERASECNAlL) 

AFLl 

22 

call  £NLB(1,20) 

AFLl 

23 

CALL  GEN0P(NAIRFL , 0) 

AFLl 

24 

call  GEN0F(NUPS, 0» 

AFLl 

25 

J = 2 

AFLl 

26 

LL(J>  = 1 

AFLI 

27 

call  GENDF(NLGRNG, 0) 

AFLl 

28 

call  G£NOF(LRFLOW,0) 

AFLl 

29 

call  GENOF(NMXB,0) 

AFLl 

30 

call  iolhrct 

AFLl 

31 

call  plot T1(  0.  0 , 0 . 06, 0. 

0,1.00) 

AFLl 

32 

AFLl 

33 

WAIT  FOR  an  attention  SOURCE 

AFLl 

34 

CALL  WAITE(OUN,0,IC,OUM) 

AFLl 

35 

END 

AFLl 

36 
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OVERLAT(14,OI 

PRP4 

2 

PROGRAH  PRP4 

PRP4 

1 

C 

PRP4 

4 

C 

THIS  PROGRAM  OISPLAYS  ITEMS  NEEDED  FOR  PROGRAM  AFL2 

PRP4 

5 

5 

C 

PRP4 

b 

C0MM0N/C0MNXYFNXYK6I  ,NXT2(6) 

COMNXT 

2 

COHMON/ICNTRL/J  ,ICRIT(2)  ,LH2) 

,IG0(2> 

ICNTRL 

2 

COMMON/ INPUT/ 

INPUT 

2 

1 LRUPS(6)  |LRSTGf6)  ,LRAFU2t6>  •LRAFE2C  6) 

,LRAFU3(6) 

,LRX00Q(6) 

INPUT 

S 

la 

2 ,LR0IEQC6»  ,LRXSEQt6)  .LRXAUPCFl  ,LRCYDU«6) 

• LRXALH(6) 

,LRCYOL(6) 

INPUT 

4 

3 iLRSLEQIGI  ,LRMACH(5)  ,LRALFA(6)  .LRYIUCG) 

,LRYIL(6) 

,LKSTRT(6I 

INPUT 

5 

4 «LRNN1(6)  tLRNA2(&)  ,LRNN3(6)  ,LRNN4(6> 

,LRNN5(6I 

,LRNN6(6I 

INPUT 

6 

5 ,NLGRNGI6)  ,NPARAS(6I 

INPUT 

T 

COMMON/NOUT/  NAIRFL(6» 

NOUT 

2 

15 

1 ,LR0EEa(6)  «LRYSOO(6)  ,LRTSEQ(6t  ,LRDOEQI&) 

,LRRJEQ(6> 

,LRUBEQ(6) 

NOUT 

3 

2 «LRID(6)  ,LRP0EQ(61  ,LRN030(6I  ,LRSUB  (61 

,LRSUPR(b) 

,LRFL0W(6> 

NOUT 

4 

COMMON/NAXES/  NALL(5) 

NAXES 

2 

1 |NMXB(61  ,NUPB(6I  , N0U0X3  (6>  ,N  AF3  B (61 

,N0WNB(6) 

,NKTAB(6) 

NAXES 

3 

2 ,NX1B(6I  ,NX2B(6)  ,NYB(6)  ,NHB(6) 

,NM01B(6) 

,NM02B(6) 

NAXES 

20 

3 ,N0U1B(6I  ,N0U23(61  ,NOOQi)(6)  ,NP0B(6) 

.NPiatb) 

,NPKTAB(6) 

NAXES 

5 

COMMON/NPRCQ/  NCUPSK6)  ,NCU»S2(6»  ,NCAFU2(6) 

,NCAFL2(6) 

,NCAFU3(b) 

NPRCD 

2 

1 ,NC0MNH6)  ,NC0HN2(6I  ,NPUPSlt6l  fNPU»S2(6> 

,NPAFU1(6) 

,NPAFU2(bl 

NPRCO 

3 

2 ,NPAFU3«6)  |NPAFLH6»  ,NPAFL2<6I  ,NP0HN1I6> 

,NPOWN2(b) 

,NUPS(bl 

NPRCO 

4 

3 ,NAF1<6)  ,NAF2(6) 

NPRCO 

5 

25 

DIMENSION  10(6) 

PRP4 

13 

DIMENSION  L3IO(2) 

PRP4 

14 

DATA  LBIO/5f20/ 

PRP4 

15 

call  BPNF0(ITRN,1D) 

PRP4 

16 

J=2 

PRP4 

IT 

30 

ICRIT(J)  = 10(31 

PRP4 

IS 

c 

PRP4 

19 

c 

•A  VALUE  OF  ICRIT(J)=2  IS  ALLOWED  FOR  THIS  VARIABLE,  OTHERWISE  THE 

PRP4 

20 

c 

PROGRAM  AWAITS  ANOTHER  ATTENTION  SOURCE 

PRP4 

21 

IF(ICRIT(J).EQ.l)  CALL  WA  IT  E (OUM,  0,  OUM , DUM» 

PRP4 

22 

35 

CALL  ASCAL(l) 

PRP4 

23 

CALL  ERASE(NALL( 

PRP4 

2« 

CALL  ENLB(2,LBI0) 

PRP4 

25 

CALL  GENOF(NAIRFL, 0) 

PRP4 

2b 

CALL  GENDF(NCAFL2, 0) 

PRP4 

2T 

<>0 

call  GENOF(nUPS, Ot 

PRP4 

2S 

call  GEN0F(LRAFL2, 0) 

PRP4 

29 

CALL  GEN0F(NMXP, 0) 

PRP4 

30 

CALL  WAITE(OUM,0,OUM,OUM) 

PRP4 

31 

END 

PRP4 

32 
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OVERLATU5,0» 

PROGRAN  AFL2 
C 

C THIS  PROGRAM  DISPLATS  OUTPUT  PROM  SUBROUTINE  lOLHRIN 
C 

COMMON/OUTCOM/ 

1 Xl(160»  ,TK160I  ,Y2(160»  ,NN1  ,NN2 

C0MM0N7ICNTRLPJ  ,ICRIT<2)  ,LL«2»  ,IGO(2) 

COMMONPNOUT/  NAIRFL(6) 

1 ,LROEEO(6)  ,LRYS00(6)  ,LRYSEQ<6»  ,LR00EQ(6I  ,LRRUE0(6)  ,lRUBEQ(6I 

2 ,LRIO(b)  ,LRP0EQ<6)  ,LRN0G0<6»  ,LRSUB(&)  ,L  RSUP  R<  6)  , LRFLOR  ( 61 

COMflON/NPRCO/  NCUPSK6)  ,NCUPS2<6)  ,NCAFU2<fa)  ,NCAFL2(fa)  ,NCAFUJ(6) 

1 ,NCOHNl(b»,NCOHN2(6>,NPUPSlt6»  .NPUPS  2(b)  .NPAFUK6)  ,NPAFU2(6) 

2 ,NPAFU3I6I  (NPAFLKb)  ,NPAFL2(6»  .NPDHNKb)  ,NPDWN2(6)  ,NUPS(6I 

3 ,NAF1<6)  ,NAF2(bl 

COMMON/NCHARS/NNEQ  ,NAEQ  , NXOOEQt  2)  , N 3V  I EO  ( 2)  , NXSEO  ( 2) 

1 ,NYS0E0<2) ,NXAEQ(2)  ,NCYO£G( 21 , NSLEQ(2)  ,N0ElQ(2)  ,NYSE0I2) 

2 ,N0Y0E3<2I  .NRUEQ<2)  ,NUBE0(2)  .NID(2>  , NM  A CHO  ( 2)  , N AL  PH  A ( 2) 

3 ,NYIUE0(2)  , NYILEOC  2)  ,NPOE3<2)  ,FMTI  , F MT  F 

COMMON  C ,CK  ,RS  ,FM  .ALPHA 

C0MM0N/AINPUT/AIN(2i.)  ,NNI(7)  ,HI(6) 

C0MM0N/YUYSAV/NNN(3)  ,YUY(15b) 

COMMON/PTARFL/XX(40, 2)  ,YY{‘.0,2)  .AM(40>2)  ,CA  ,SA 

COMMON/RBU0CM/RBU8  .USINIT  .IR3UB 

C0MM0N/C0MPR3/XP(161,2) , ’P { 160 , 2) , NP( 2 ) 

COMHON/ISSCAL/IOSCAL 
CALL  ASCALdI 
CALL  ERASG(IOSCAL) 

CALL  ERASGi IOSCAL-1) 

CALL  ERASE(lRNOGO) 

C 

C ERASE  TEXT  ENTITIES  PREVIOUSLY  OISPLAYEO  BY  THIS  PROGRAM 
CALL  ERASE(lRRUEQ)  ' 

CALL  ERASE(LRIO) 

CALL  ERASE(LRUBEO) 

CALL  ERASE(LRPOEQ) 

IICRIT  = ICRIT(J) 

L = LL( J) 

call  lOLWRINdlCRIT.L) 

IF(NN2.NE.l)  call  GEN  OF  ( l RNOGC  , 0» 

C 

C OISPLAY  THE  CUT°UT  VALUES  OF  ROuB  AND  UB 
CALL  tNSHFT(NRUE0,5,RBUB,FMTF) 

CALL  MODFYCLRRUEC, 1.2.NRUE0) 

CALL  GENOFILRRUEQ  , 0) 

IF (IR3U5. EO. 0)  GO  TO  4 
IF(IRau3.£Q.2)  call  GENOF C LRI D , 0 ) 

GO  TO  b 

4  CALL  ENSHFT(NUBEQ,3,J3INIt,F!1TF) 

CALL  MODFY(LRUPEO, 1, 2.NU3EGI 
CALL  GENOF(  lRUBEO,  01 
b CONTINUE 

IF (NN2. £Q. 0)  GO  TO  3 
NN  = NP(J) 

C 

C OEPENGING  ON  THE  VALUE  OF  NN2,  DISPLAY  THE  OUTPUT  VALUE  OF  PO 
CALL  ZNSHFT(NOOEQ,3,pP(NN,J),FMTF) 
call  M30FV(LRPOEQ,1,2,NPOEO) 
call  GENQF(l:;»OEC,  0) 

C 

C 0EPEN3ING  ON  THE  VALUE  OF  NN2  ANO  IGO(J),  OISPLAY  ASTERISKS 
C INDICATING  THE  NEXT  PROGRAM  STEP 
IF(NN2.EQ.1I  IG0(J)=1 
IF(LN2.l0.1)  call  GENHF  (mphfji,3| 

IF  (IGQ(  1)  .EQ.  1 . ANO.  IGOt  2)  .^0.  1)  CALL  GENOF  ( NPJWNl , C) 

3 CALL  PL 3TT( 0 . 0 , 1. 0 , Q. 0 , 1. 0) 

C 

C WAIT  FOR  an  attention  SOURCE 
call  WAITKOUM,  G.OUM.OUM) 

END 


AFL2 

2 

AFL2 

3 

AFL2 

4 

AFL2 

AFL2 

6 

OUTCOM 

2 

OUTCOM 

1 

ICNTRL 

2 

NOUT 

2 

NOUT 

3 

NOUT 

4 

NPRCO 

2 

NPRCO 

3 

NPRCO 

H 

NPRCO 

5 

NCMARS 

2 

NCHARS 

3 

NCHARS 

4 

NCHARS 

5 

COMMON 

2 

AINPUT 

2 

YUVSAV 

2 

PTARFL 

2 

R3UBCM 

2 

COMPRS 

2 

ISSCAL 

2 

AFL2 

19 

AFL2 

20 

AFL2 

21 

AFL2 

22 

AFL2 

23 

AFL2 

24 

AFL2 

25 

AFL2 

2b 

AFL2 

27 

AFL2 

28 

AFL2 

29 

AFL2 

30 

AFL2 

31 

AFL2 

32 

AFL2 

33 

AFL2 

34 

AFL2 

35 

AFL2 

3b 

AFL2 

17 

AFL2 

18 

AFL2 

39 

AFL2 

40 

AFL2 

41 

AFL2 

42 

AFL2 

43 

AFL2 

44 

AFL2 

45 

AFL2 

4b 

AFL2 

47 

AFL2 

48 

AFL2 

49 

AFL2 

5 0 

AFL2 

51 

AFL2 

52 

AFL2 

53 

AFL2 

34 

AFL2 

5 5 

AFL2 

5b 

AFL2 

57 

AFL2 

58 

AFL2 

59 

AFL2 

bO 

AFL2 

61 

AFL2 

o2 
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5 


10 


15 


ZO 


Z5 


30 


35 


0VERLAT(16|SI 

PRP5 

Z 

PROGRAM  PRP5 

PRP5 

1 

PRP5 

4 

THIS  PROGRAM  DISPLAYS  ITEMS  NEEDED 

FOR  PROGRAM  AFU3 

PRP5 

5 

PRP5 

6 

C0MM0N/C0MNXT/NXY1I6I 

,NXYZ(6) 

COHNXY 

2 

COMMON/ICNTRL/ J 

tICRITIZ) 

,LL(Zi  tIGOIZI 

ICNTRL 

Z 

COMMON/INPUT/ 

INPUT 

Z 

1 LRUPS  (61  ,LRSTG<6) 

,LRAFUZ(6> 

,LRAFLZ(6)  ,LRAFU3(6) 

tLRXOOQIbl 

INPUT 

3 

Z ,LRDIEQ«6J  ,LRXSEa<6l 

,LRXAUPC6> 

,LRCYDU(6)  tLRXALH(6l 

• LRCYOLCbi 

INPUT 

4 

3 ,LRSLEQ(6) ,LRMACH(6J 

,LRALFA(6I 

,LRYIU(6)  ,LRYIL(6) 

tLRSTRT(6l 

INPUT 

5 

It  ,LRNN1(6I  ,LRNAZ(6I 

,LRNN3(6t 

tLRNNL(6l  ,LRNN5(6> 

,LRNN6(6) 

INPUT 

6 

5 ,NLGRNG<&)  ,NPARA3<6I 

INPUT 

r 

COMMON/NOUT/  NAIRFL(6» 

NOUT 

z 

1 ,LR0EEQ(6»  ,LRYSOQ<bt 

,LRYS£Q(6J 

,LRD0EQ(6)  ,LRRUEa<6) 

tLRUBEQIb) 

NOUT 

3 

Z ,LRID(6)  ,lRPOEQ(6) 

,LRN0G0<6I 

,LRSUB(fa)  ,LRSUPR(6) 

tLRFL0M(6) 

NOUT 

4 

COMMON/NAXES/  NALH6) 

NAXES 

Z 

1 ,NMXB(6)  ,NUPB(6I 

,NDU0X3{6> 

,NAF3B(b>  tNOWNS(6) 

,NKTAB(6) 

NAXES 

3 

Z ,NX1B(6I  ,NX2B(6) 

•NY3(6I 

,NHB(6)  ,NM01B(6) 

tNM02B(6) 

NAXES 

4 

3 ,NOU13(6)  ,NDUZB(6) 

,N0DQ3(6) 

,NP03(6)  ,NP1B(6) 

tNPKTAB(6) 

NAXES 

5 

COMPON/NPRCO/  NCUPSH6) 

,NCUPS2(6) 

,NCAFU2<6)  ,NCAFL2(6» 

,NCAFU3(6I 

NPRCO 

Z 

1 ,NC0WN1(6) ,NCQHN2(6I 

,NPUPSH6) 

,N=>UPS2(6)  ,NPAFU1(6) 

,NPAFUZ(6) 

NPRCO 

3 

Z ,NPAEU3<6)  ,N<»AFLU6) 

,NPAFl2(6) 

,NP0HN1(6)  ,NP0HN2(fa) 

,NUPS(6» 

NPRCD 

4 

3 ,NAF1(6)  ,NAE2<6) 

NPRCO 

5 

DIMENSION  L9I0(2) 

PRP5 

13 

DATA  L3IO/6i20/ 

PRP5 

14 

J = 1 

PRP5 

15 

iGO(j)  = a 

PRP5 

16 

call  ASCAUU) 

PRP5 

IT 

CALL  ERASE(NALL) 

PRP5 

IS 

call  ENLa(2,L3I3) 

PRP5 

19 

call  GEN0'='(NAIRFL,  0» 

PRP5 

ZO 

call  G£N0F(NCAFU3, 0) 

PRP5 

Zl 

call  G£NDF(NPAFU2, Q) 

PRP5 

zz 

CALL  GENOF(NUPS,0) 

PRP5 

23 

call  G£N0F(LRAFU3, 0) 

PRP5 

24 

CALL  GENDFCNHXB, 0) 

PRP5 

25 

CALL  HAIT£<OUM,0,DUM,OUM) 

PRP5 

26 

ENO 

PRP5 

2T 

177 


OV5RLAT  ( 1 7,  0> 

AFU3 

2 

PROGRAM  AFU3 

AFU3 

J 

C 

AFU3 

5 

C 

THIS  PROGRAM  DISPLAYS  OUTPJT  FROM  SUBROUTINE 

IOSPCT2 

AFU3 

5 

5 

c 

AFUJ 

b 

C0MM0N/0UTC0M7 

OUTCOM 

2 

1 XH160)  ,Y1(16G)  ,T2U60)  ,NN1 

,NN2 

OUTCOM 

1 

C0MM0N7ICNTRL/J  ,ICRIT<2)  ,LL<2) 

,IGO<2) 

ICNTItL 

2 

COMMON/NOUT/  NAIRFL(6) 

NOUT 

2 

10 

1 ,UR0EEQt6»  , LRYSO0(6l  ,LRYSEQI6)  ,UR00EU(  6) 

fLRRUEQIbt  ,UtJBEQ(bi 

NOUT 

J 

2 ,LRI0(6)  ,LRP0Ea(6)  ,LRN0G0»6»  »LRSUB«6I 

,LRSUPR(6I  ,LRFL0H(6) 

NOUT 

5 

COMMON/NPRCO/  NCUPSK  61  ,NCUPSE(6I  ,NC*FU2I6) 

,NCAFL2(6) iNCAFUSIbl 

NPKCO 

2 

1 ,NC3HN1<6»  ,NCOWN2(6l  ,NPUPSH6)  ,NPUPS2(6) 

,NPAFU1(6)  ,NPAFU2(6) 

NPUCO 

J 

2 ,NPAFU3(6)  ,NOAFLl<6)  ,SPAFL2I6)  .NPOHNKb) 

,NPOWN2tb)  ,NUPS(6I 

nprco 

5 

15 

3 ,NAF1I6)  ,NAF2(6) 

NPRCO 

5 

COMMON/NCHARS/NNEQ  ,NAEQ  ,NXOOEQ(2) 

.NOVIEat  2)  ,NXSEQ(2) 

nchars 

2 

1 ,NTSOE J<2) , NXAEQ(2)  , NO YOEQ ( 2) , NSL EQ (2 > 

,NOEEQ(2)  ,NTSEa(2) 

NCHARS 

J 

2 ,NDVOE3(2t  ,NRUEQT2)  ,NU9Ea«2»  ,NID(2) 

.NMACHQTE)  ,NAlPHA(2) 

NCHARS 

5 

3 ,NYIUEQ(2)  ,NYILEQ(2)  ,NP0Ea(2)  ,FMII 

,FMTF 

NCHARS 

5 

20 

COMMON  C ,C<  ,RS  ,FM 

(ALPHA 

COMMON 

2 

COMMON/AINPUT/AIN<  25)  ,NNI(7)  ,HI(6) 

ainput 

2 

C0MM0N/YUVSAV/NNN(  3)  ,YUV(156> 

YUVSAV 

2 

COMMON7PrARFL/XX(50,2)  ,YY(53,2)  ,AM»50,2I 

.ca  ,sa 

ptarfl 

2 

C0MM0N/C0MPRS/XP(16!1,?I  ,PP(160,2)  tNP(2) 

COMPRS 

2 

25 

COMMON/ISSCAl/IQSCAL 

ISSCAL 

2 

COMMONS C0MSPR7ARM0 (160) 

AFU3 

10 

CALL  ASCALdI 

AFU3 

19 

call  ERASG(IOSCAL) 

AFU3 

20 

call  ERASG<iaSCAL-l) 

AFU3 

21 

30 

call  iRASEILRNOGO) 

AFU3 

22 

CALL  ERAS£(LR»OEO) 

AFU3 

2 3 

L = LL(J) 

AFU3 

25 

call  I0SPCT2(J,L) 

AFU3 

25 

c 

AFU3 

26 

35 

c 

OEPENOING  ON  THt  VALUE  OF  NN2  AND  dO(J),  OIS 

play  asterisks 

AFU3 

2T 

c 

indicating  ThE  NEXT  PROGRAM  STE° 

AFU3 

28 

IF(NN2.NE.1)  CALl  GENDF<LRNOGO,0) 

AFU3 

29 

IF(NN2.F0.1)  IGO(J)  = 1 

AFU3 

30 

IF(NN2. EQ.lt  call  G ENOF  ( NPA  FL  1 , 0 ) 

AFU3 

31 

<<0 

IF (IGO( 1)  .EQ. 1 . and. IGO(2)  .Ea. 1)  CALL  GE NOF { N^OH N 1 , 0 ) 

AFU3 

32 

IF(NN2.lQ.0I  go  TO  3 

AFU3 

31 

NN  = NP(J) 

AFU3 

35 

call  ENSHFT (NPCEQ, 3,PP(NN,J) ,FMTF) 

AFUJ 

35 

call  M0DFY(LRP0EQ,1.2»NP0E0I 

AFU3 

16 

55 

CALL  GENQF(lRPOEQ, 0) 

AFU3 

JT 

8 TO  10  1=1,160 

AFUJ 

18 

1 J Y1  ( I ) = A LMOT  I ) 

AFUJ 

39 

call  plot T1 ( 0. 0, 1 . 0, 0 .0 ,1 . 0) 

AFUJ 

50 

r 

AFUJ 

51 

50 

c 

WAIT  FOP  AN  ATTENTION  SOURCE 

AFUJ 

52 

CALL  HAIT"<DUM,0,OUM,OJM) 

AFUJ 

53 

end 

AFUJ 

55 
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5 


10 


15 


20 


25 


30 


35 


0VERLAT(20,0I 

PRP6 

2 

PROGRAN  PRP6 

PRP6 

I 

PRP6 

4 

THIS  PROGRAM  DISPLAYS  ITEMS  NEcOEO 

FOR  PROGRAM  DWNl 

PRP6 

5 

PRP6 

6 

COMMON/ICNTRL/ J 

,ICRIT(2) 

,LL(2I 

,IG0(2I 

ICNTRL 

2 

COMMON/OUTCOM/ 

JUTCOM 

2 

1 XK160)  ,Vl(l&0i 

,T2 (160) 

,NN1 

,NN2 

OUTCOM 

3 

COMMON/INPUT/ 

INPUT 

2 

1 LRUPSISt  ,LRSTG(6) 

,LRAFU2(6) 

,LRAFL2(6) 

,LRAFU3(6) 

,LRX00Q(6) 

INPUT 

3 

2 iLRDIEQIG) |LRXSEQ(6I 

,LRXAUP<6) 

,LRCTDU(6) 

tLRXALM(6) 

• LRCYOLIb) 

INPUT 

4 

3 ,LRSLEQ(6I iLRMACH(b) 

,LRALFA(6) 

.LRTlUtb) 

,LRYIL(6) 

»LRSTRT(6) 

INPUT 

5 

<•  iLRNNllfal  ,LRNA2(6I 

,LRNNI(6) 

,LRNN4(6> 

,LRNN5(6) 

,LRNNb(6) 

INPUT 

b 

5 ,NLGRNG(6I |NPARAa<6) 

INPUT 

7 

COMMON/NOUT/  NAIRFL(61 

NOUT 

2 

1 ,LR0EEa«6) ,LRTS0a<6) 

,LRTSEQ(6) 

,LRD0EQ(6) 

,LRRUED(6) 

,LRUBEQ(6) 

NOUT 

3 

2 ,LRI0(6>  ,LRPOEQ(6) 

,LRNOGO(e> 

,LRSUB(6) 

,LRSUPR(bl 

,LRFL0H(6I 

NOUT 

4 

COMMON/NAXES/  NALL  161 

NAXES 

2 

1 |NMXB(6I  |NUPB(6) 

jNOUQXBIo) 

,NAF3B(6) 

,NDHNB(b) 

,NKTAB(b) 

NAXES 

3 

2 |NX16(6I  ,NX2B(6) 

,NYB (6) 

,NM8<6) 

tNMOlQ(b) 

,NM02B(6) 

NAXES 

4 

3 ,NUU1B(6)  ,NDU2S(6) 

|ND0Q3(6> 

,NP0B(6> 

,Ni»ia(b) 

,NPKTA3(b) 

NAXES 

5 

COMMON/NPRCO/  NCUPSK6) 

,NCUPS2(6) 

,NCAFU2<6) 

,NCAFL2(6) 

,NCAFU3(b) 

NPRCO 

2 

1 ,NC3HN1(6) «NCDWN2(6) 

,NPUP31(6) 

,NPUOS2(6) 

,NPAFU1(6) 

,NPAFU2(fa) 

NPROD 

3 

2 ,NPAPU3<6) ,N°AFLl(ol 

,NPAPL2<6) 

,NP0HN1(6) 

,NPQHN2tb) 

,NUPS(bt 

NPRCD 

4 

3 ,NAF1(6)  ,NAF2(6) 

NPRCD 

5 

DIMENSION  L3I0(2) 

PRP6 

13 

DATA  LBID/7,20/ 

PRPb 

14 

CALL  ASCAL(l) 

PRP6 

15 

CALL  £RASE<NALL* 

PRPb 

16 

call  £NL0(2,L9ID) 

PRPb 

17 

CALL  GENDCINAIRFL,  0) 

PRPb 

18 

CALL  GENOFCNCDHNI, 0) 

PRPb 

19 

call  G£NDF<NPAFU3, QL 

PRPb 

20 

CALL  GENDF(NPAFL2,  0) 

PRPb 

21 

CALL  GENOF(LRNN6,0) 

PRPb 

22 

CALL  G£N0^(NDHN3, 0) 

PRPb 

23 

call  HAITECOUM,0,OUM,OUM) 

PRPb 

24 

END 

PRPb 

25 

179 


OVERLATtaif 01 

OMNI 

2 

PROGRft»l  DWNl 

OMNI 

I 

r* 

OMNI 

4 

c 

THIS  PROGRAM  OISPLATS  OUTPUT  FROM  SUBROUTINE 

lOONSTM 

OMNI 

5 

5 

c 

OMNI 

6 

CONMON/ICNTRLF  J 

,ICi(IT(2t  ,LL(2) 

,IGO(2> 

ICNTRL 

2 

COMMON/OUTCOM/ 

OUTCOM 

2 

1 XldgO)  lYKlGOI 

,T2(160>  ,NN1 

,NN2 

OUTCOH 

1 

COMMON/NOUT/  NAIRFL(6» 

NOUT 

2 

10 

1 ,LR0EEaT6)  , LR»S0Q(6I 

,LRYSEQ(6I  ,LRD0EQ(&) 

,LRRUEH(6> 

,LRUBEQ(6I 

NOUT 

3 

2 iLRIOlo)  iLRPOEQTOl 

,LRN0G0(6> ,LRSUB(bi 

,LRSUPR(6) 

,LRFL0M(6) 

NOUT 

4 

COMMON/NORCQ/  NCUPSK6T 

,NCUPS2(6I  ,NCAFU2(b> 

,MCAFL2<6) 

,NCAFU3(6) 

NPRCO 

2 

1 ,NG0HN1(6I  ,NC0HN2(6) 

,NPUPS1(6» ,NPUPS2(6) 

,NPAFU1(6) 

,NPAFU2(6) 

NPRCO 

3 

2 ,NPAFU3(6» ,NPAFL1(6T 

,NPAFL2<6)  ,NP0HN1(6) 

,NP3HN2(6I 

,NUPS(6> 

NPRCO 

4 

15 

1 ,NAei(6l  ,NAF2(6) 

NPRCO 

5 

COMMON  C ,CK 

,RS  ,FM 

, ALPHA 

COMMON 

2 

COMMON/ A INPUT/ A IN  (21*) 

,NNI(7)  ,HI(6» 

AINPUT 

2 

COHHON/YUYSAV/NNN<  3) 

,YUV(156» 

TUVSAM 

2 

COMMON/PTARFL/XX(40,2» 

,YY(<,a,2)  ,AM(i*0,2) 

,CA 

,SA 

PTARFL 

2 

20 

COMHON/ISSCAl/IOSCAL 

ISSCAl 

2 

call  ASCAL(I) 

OMNI 

16 

call  ERASG(IOSCAL) 

OMNI 

1/ 

call  ERASG(IOSCAL-I) 

OMNI 

14 

call  ERASE(LRNOGO) 

OMNI 

19 

25 

call  I00NSTM(JI 

OMNI 

20 

IF(NN2.NE.l)  call  GENOF  (LRNOGO  , O) 

OMNI 

21 

IF(NN2.EQ.U  call  GENOF(NPONN2,0) 

OMNI 

22 

call  PlOTT2(1. 0,10. 0,0. 

S,l.Q,0.t,1.0,2) 

OMNI 

23 

c 

OMNI 

24 

30 

c 

WAIT  FOR  an  attention  SOURCE 

OMNI 

25 

call  HAIT£(nUM,0,DUM,OUM) 

OMNI 

25 

ENO 

OMNI 

2/ 
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5 


10 


1^ 


20 


25 


30 


35 


40 


45 


50 


55 


60 


65 


OVERLAT(22,ai 

0MN2 

2 

PROGRAM  DMN2 

DHN2 

I 

c 

3MN2 

4 

c 

THIS  program  displays  output  from  SU9R0UTINE 

akutta 

OHN2 

5 

c 

DMN2 

6 

C0MM0N/C0MNXT/NXTH6)  ,MXT2(6) 

COMNXr 

2 

COMMON/INPUT/ 

INPUT 

2 

1 LRUPS(b)  •LRSTG<6)  •LRAFU2(6)  ,LRAPL2(6) 

,LRAFU3(6) 

,LRX00Q(6I 

INPUT 

1 

2 ,LR0IE(1(6)  ,LRXSE3(6i  ,LRXAUP<6)  tLRCYDU(b) 

,LRXALM(6) 

,LRCY0L(6I 

INPUT 

4 

3 ,LRSLEQ(6)  ,LRMACH(6>  •LRALFAI6)  ,LRTIU(6) 

,LRYIL(6) 

,LRSTRTI6I 

INPUT 

5 

4 •LRNNKb)  •LPNA2(6)  ,LRNNJ(6)  ,LRNN4(6> 

,LRNN5(6> 

,LRNN6(6) 

INPUT 

6 

5 ,NLGRNG(6)  ,NPARA9(6> 

INPUT 

T 

COMMON/NOUT/  NAIRFL(6» 

NOUT 

2 

1 fUROEEQIbl  ,LRTS0QC6»  .LRYSEOtb)  ,LR00EQ(6I 

,LRRUEa<6l 

,LRU0EQ(6I 

NOUT 

1 

2 •LRI0(6)  iLRP0EQ(6t  ,LRN0G0(6)  ,LRSU3(6t 

,LR3UPR(6) 

,LRFL0M(6) 

NOUT 

4 

COHMON/NAXES/  NALL(6) 

MAXES 

2 

1 ,NMXB<6)  ,NUPe(6l  ,N0U0X91 6t  ,NAF  39  (6 ) 

,NDHNB(6) 

,NKTA3(6> 

NAXES 

3 

2 tNX19(6)  •NX2B(6)  .MYeiol  ,NM9(6> 

,NM019(6) 

,NM023(6) 

MAXES 

4 

3 |NDU19(6)  ,N0U2B(6)  ,N00Q9(6I  >NP09(6I 

,N»1B(6) 

,NPKTA3I6I 

NAXES 

5 

COMMONFNPRCO/  NCUPSK6)  ,NCUPS2(6)  ,NCAFU2<6> 

,NCAFL2(6) 

,NCAFU3(6) 

NPRCD 

2 

1 ,NC0WN1(6» ,NC0MN2<6) ,NPUPS1(6) ,NPUPS2J6» 

,NPAFU1<6) 

,NPAFU2(6) 

NPRCO 

3 

2 ,NPAFU3(6) ,NPAFL1(6) ,NPAFL2<6» ,MP0HN1«6) 

,NP0HN2(6) 

,NUPS(6) 

NPRCD 

4 

3 ,NAFH6)  ,NAF2I6) 

NPRCO 

5 

C0MM0N/C0MPRS/XP(163,2)  , »P  ( 160 , 2)  , NP<  2 ) 

COMPRS 

2 

COMMON/ISSCAL/IOSCAL 

ISSCAL 

2 

CALL  ASCAL(I) 

0NN2 

14 

CALL  ERASG(IOSCAL) 

0HN2 

15 

call  ERASG(I0SCAL-1I 

□ HN2 

16 

CALL  ERASE(NALL) 

DNN2 

1/ 

call  ENL9(1,20) 

DHN2 

IS 

CALL  GENOF(HA:rfl, 0) 

DHN2 

19 

call  GEN0FCNC0HN2, 0) 

DHN2 

20 

call  GENOF(NAF1,0)  ■ 

DWN2 

21 

call  GEN0F(N<TA3, 0) 

DHN2 

22 

call  akutta 

DnN2 

23 

PMAX  = PP(1,1I 

DHN2 

24 

PMIN  = PP(1,1) 

DHN2 

25 

XMAX  = 1.0 

3HN2 

26 

XMIN  = XP(1,1) 

DHN2 

ZT 

IF(XP(1,2»,lT.XMIN)  XMIN  = XP(1,2) 

DHN2 

28 

00  20  J=l,2 

DHN2 

29 

NN  = NPU) 

DHN2 

30 

DO  10  1=1, NN 

DHN2 

31 

IF(PP(I,J)  -PMAX)  6,6,4 

DHN2 

32 

4 

°MAX  = PP  (I,  J) 

DHN2 

33 

GO  TO  10 

0HN2 

34 

6 

IF<FP(I, J)-PMIN) 3, 10, 10 

DHN2 

35 

3 

PMIH  = PP  (I,  J) 

DHN2 

36 

1 0 

CONTINUE 

DHN2 

32 

20 

CONT INUE 

0HN2 

38 

IF(PMIN.GT.O.O)  PMIN  =0.0 

DHN2 

39 

call  AREAKXMIN, XMAX, PMIN, PMAXJ 

QHN2 

+ 0 

NGRAF  = 0 

DHN2 

41 

NXYK5)  = 0 

□ HN2 

42 

call  OLETEINXYl) 

DHN2 

43 

DO  40  J=l,2 

DHN2 

44 

NN  = NP(J)  ■ 

□ HN2 

45 

IF(NN.GE.60)  NGRAF=1 

ONN2 

46 

IF  (NN.GL  . 120)  NG?.AF  = 2 

DHN2 

47 

IF(NGRAF.£a.O)  GO  TO  36 

DHN2 

48 

NXYl  (6)  = J 

□ HN2 

49 

DO  30  1=1, NGRAF 

DNN2 

50 

NXYK5)  = I 

DHN2 

5 1 

30 

call  PLYLN(NXY1,1, XP(60*NGRAF-59, J) , PP ( 60*NGRAF -5 9 , J) . 

.60) 

DHN2 

52 

36 

NXYK6)  = J 

DHN2 

53 

NXYK5)  = eo 

DHN2 

54 

call  PLYL N(NXY1,1,XP(1+60» NGRAF, J) ,pp ( 1+6 0» NGRA F , J) , 

DHN2 

55 

1 NP( J) -60’NGRAF-l) 

DHN2 

56 

40 

CONTINUE 

DHN2 

57 
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?0  NXTK5I  = 0 

NXYH6)  = 0 
C&LL  GENOFCNXYl.O) 

C 

C MftIT  FOR  AN  ATTENTION  SOURCE 
75  call  HAITE<DUM,0,nUM,OUN) 

END 


OHNE 

ss 

OHNZ 

39 

OHN2 

60 

OHNZ 

31 

OHNZ 

3Z 

QHNZ 

. 3] 

OHNZ 

34 
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OVERLAV(23,OI 

CVLI 

2 

PROGRAH  CVLI 

CVLI 

J 

COiHON/INPUTf 

INPUT 

2 

1 LRUPS(6)  ,LRSTG(6)  ,LR4FIJ2  ( 61  ,L  RflFL  2(  6) 

,LRAFU3l6i 

,LRX 000(6) 

INPUT 

S 

5 

2 ,LRDIEQI6),LRXSEQ(6)  ,LRX4UP(6I  ,LRCYDU(6» 

,LRXALM(6I 

,LRCY0L(6) 

INPUT 

4 

3 ,LRSLEQ«6»  ,LRMACH(6)  ,LRALFA<6)  ,LRfIU(6.' 

,LRYIL(6) 

,L«STRT(6) 

INPUT 

5 

4 ,LRNN1(6)  ,LRNA2C6)  ,LRNN3(6)  ,LRNN4(6I 

,LRNN5(61 

,LRNN6<6) 

INPUT 

6 

5 ,NLGRNG<6)  ,NPARA3(6) 

INPUT 

T 

COMHON/NCHARS/NNEO  iNAEQ  ,NXOOEQ(  21 

,NDVIEa(2l 

,NXS£0<2) 

NCHARS 

2 

10 

1 ,NTS0Ea(2l  ,NXAEQ(2)  , NC YOEQ(  2)  ,NSL E Q (2) 

,NDEEQ(2) 

,NY5Ea<2) 

NCHARS 

3 

2 ,NOVOEQI2)  ,NRUEQ«2)  ,NUREai2)  ,NIO(2) 

,NMACHO(2l 

,NAlPHA(  21 

NCHARS 

4 

3 ,NYIUEat2»  ,NYILE3(2)  ,NP0Ea(2)  ,FMTI 

,FMTF 

NCHARS 

5 

COMHON/AINPUT/AIN<  24J  ,NNI(7>  ,HI<6) 

AINPUT 

2 

DIMENSION  DUM<6),10(6» 

CVLI 

T 

15 

C 

CVLI 

8 

c 

RETRIEVE  attention  INFORMATION  FROM  THE  TEXT 

ENTITY  IN 

A SIX  integer 

CVLI 

9 

c 

ARRAY  10 

CV|.I 

10 

CALL  aPNFOCITRN, 10) 

CVLI 

11 

c. 

CVLI 

12 

20 

c 

ERASE  THE  TEXT  ENTITY 

CVLI 

13 

CALL  ERASETIDI 

CVLl 

14 

c 

CVLI 

15 

c 

REPLACE  THE  TEXT  ENTITY  WITH  A CORRESPONDING 

LIGHT  REGISTER 

CVLI 

Id 

CALL  ENLRd.IO) 

CVLI 

IT 

25 

c 

CVLI 

IS 

c 

DISPLAY  THE  NUMBERS  BEING  TYPED  INTO  THE  LIGHT  REGISTER 

FROM  THE 

CVLI 

19 

c 

KEYBOARD 

CVLI 

20 

CALL  K3NPT(ID, IVAL ) 

CVLI 

21 

CALL  ASCAHl) 

CVLI 

22 

30 

c 

CVLI 

23 

c 

ERASE  THE  LIGHT  REGISTER 

CVLI 

24 

CALL  ENLR(0,ID) 

CVLI 

25 

IDl  = I0(l)-20 

CVLI 

2 6 

c 

CVLI 

27 

35 

c 

PUT  the  new  value  INTO  THE  CORRESPONDING  TEXT 

ENTITY 

CVLI 

28 

GO  TO  <10,20,10,40,50,60) ,101 

CVLI 

29 

10  NNKII  = IVAL 

CVLI 

30 

CALL  ENSHFT<NNEa,3,NNKl»  ,FMTI) 

CVLI 

31 

call  M00FY<I0,1,1,NNEQ) 

CVLI 

32 

40 

GO  TO  200 

CVLI 

33 

20  NNK2)  = IVAL 

CVLI 

34 

CALL  ENSHFT<NA£3,3,NNI<2) ,FMTI) 

CVLI 

35 

CALL  MOOFYdO,  1,  l,NAEO) 

CVLI 

36 

GO  TO  200 

CVLl 

37 

45 

30  NNK3)  = IVAL 

CVLI 

33 

call  ENSHFT(NNEQ,3,NNI(3)  ,FMTI) 

CVLI 

39 

call  MOOFYdO, 1,1,NNE3) 

CVLI 

wO 

GO  TO  200 

CVLI 

wl 

40  NNH4)  = IVAL 

CVLI 

42 

50 

call  ENSHFT(NNE0,3,NNI(4) ,FMTI) 

CVLI 

43 

CALL  MOOFY<IO, 1, 1, NNEQ) 

CVLI 

44 

GO  TO  200 

CVLI 

45 

50  NNK5)  = IVAL 

CVLI 

46 

CALL  ENSHFT<NNE0,3,NNI(5) ,FHTH 

CVLI 

47 

55 

CALL  MOOFYdO, 1,1, NNEQ) 

CVLI 

48 

GO  TO  200 

CVLI 

49 

60  NNII6)  = IVAL 

CVLI 

50 

CALL  ENSHrT<NNEQ,3,NNI(6) ,FHTI) 

CVLI 

51 

call  HODFYilD, 1, 1,NNE0) 

CVLI 

52 

60 

c 

CVLI 

53 

c 

OIS°LAY  THIS  TEXT  ENTITY  WHICH  HAS  BEEN  CHANG 

ED 

CVLI 

54 

200  call  G£NO‘"dD,0) 

CVLI 

55 

CVLI 

56 

c 

WAIT  FOR  AN  ATTENTION  SOURCE 

CVLI 

57 

65 

call  WAITE(OUM,0,DUM,DUM) 

CVLI 

58 

-NO 

CVLI 

59 

183 


OVERLATI24,0) 

CVLR 

program  CVUR 

CVLR 

COMMON/INOUT/ 

INPUT 

1 LRUPS(6>  ,LRSTG(6) 

,LRAFU2(6I  ,LRAFI.2(&) 

• LRAFUKGI 

,LRX  00Q(6) 

INPUT 

5 

2 ,LRQI£Q«6»  ,LRXStQ(6)  ,LRXAUP<6» 

.LRCYDU(6) 

,lRXALM(6) 

iLRCYDKG) 

INPUT 

3 ,LRSLEQC6I  ,LRMACH(6) 

,LRALFA(6» 

,LRYIU(&> 

,LRYIL(6) 

,Ui<STRT(6» 

INPUT 

<*  ,LRNN1(6>  ,LRNA2<6) 

,LRNN3E6) 

iLRNN<>(6> 

,LRNN5(6I 

,LRNN6(6) 

INPUT 

5 iNUGRNG«6)  ,NPARA5<6) 

INPUT 

COMMON/NCHARS/NNEQ 

,NAEQ 

,NX00EQ(2) 

,NOVIEO(2» 

.NXSEQ(2) 

NCHARS 

10 

1 ,NTSOEQ«2l  ,NXAEQ(21 

,NCY0EQ(2) 

,NSLEQ(2) 

,N3EEQ(2) 

,NY3E3<2) 

NCHARS 

2 ,NOVOEQI2liNRUEO(2) 

,NU9EQ«  2) 

>NID(2) 

,NMACHQ(2> 

.NALPHAt  2» 

NCHARS 

3 ,NTIUEQ12)  ,NYILEQ12) 

,NPOEQ(2) 

,FMTI 

,FMTF 

NCHARS 

COMMON/AINPUTXAIN( 24) 

,NNI (21 

,HI(6) 

AINPUT 

COMMON  C ,CK 

iRS 

,FM 

.ALPHA 

COMMON 

15 

DIMENSION  0UM(6) ,I0(6» 

CVLR 

C 

CVLR 

C 

RtTRIFVE  ATTENTION  INFORMATION  FROM  THP 

TEXT 

ENTITY  IN  A 

> SIX 

INTEGER  CVLR 

10 

C 

array  id 

CVLR 

11 

CALL  9PNF0(1TRN,ID) 

CVLR 

12 

20 

c 

CVLR 

13 

c 

ERASE  THE  TEXT  ENTITY 

CVLR 

14 

call  ERASE(I0> 

CVLR 

15 

c 

CVLR 

16 

c 

REPLACE  THE  TEXT  ENTITY  WITH  A CORRESPONDING 

LIGHT  register 

CVLR 

17 

25 

call  ENLRd.IO) 

CVLR 

IS 

c 

CVLR 

13 

c 

DISPLAY  THE  NUMBERS  BEING  TYPED  INTO  THE 

LIGHT  register 

FROM 

THE  CVLR 

20 

c 

REY90AR0 

CVLR 

21 

call  K9NPT(I0,VAL5 

CVLR 

22 

30 

c 

CVLR 

23 

c 

ERASE  The  light  REGISTER 

CVLR 

24 

call  ENLR(0,IO) 

CVLR 

25 

call  ASCALU) 

CVLR 

26 

101  = 10(1) 

CVLR 

27 

35 

c 

CVLR 

23 

c 

PUT  the  new  value  into  the  corresponding 

TEXT 

ENTITY 

CVLR 

29 

GO  TO  ( 1 0 ,20 . TO, 40 ,50 ,60, 70, BO ,90,100 , 

110,120,130,140) 

,101 

'CVLR 

30 

10  AIN(8)  = VAL 

CVLR 

31 

CALL  ENSHFT(NXOOtO,4,AIN( 8) ,FMTFI 

CVLR 

32 

40 

CALL  MOOEY(IO,1,2,NXOOEQ) 

CVLR 

33 

GO  TO  200 

CVLR 

34 

20  AIN(l)  = VAL 

CVLR 

35 

call  £NSHFT(N0VIEQ,3,AIN(1) ,FMTF) 

CVLR 

36 

CALL  MODFY(IO,1,2,NOVIEQ) 

CVLR 

37 

45 

GO  TO  200 

CVLR 

33 

30  AIN(2)  = VAL 

CVLR 

39 

CALL  LNSHFT (NXSEQ, 3, AIN (2) ,FMTF) 

CVLR 

40 

CALL  MODFYdO,  1, 2,  NXSni 

CVLR 

4l 

GO  TO  200 

CVLR 

42 

5 0 

4 0 AIN  (3)  = VAL 

CVLR 

43 

CALL  ENSHPT(NXAEQ,3,AIN(3) ,FMTF) 

CVLR 

44 

call  MOOFYdO,  1,  2,  NXAEO) 

CVLR 

45 

GO  TO  200 

CVLR 

46 

5 0 AIN(„)  = VAl 

CVLR 

47 

55 

CALL  £NSHFT(NCY0EQ,4,AIN(4)  ,FMTF) 

CVLR 

43 

CALL  MOOFY( ID, 1, 2, NCYOEO) 

CVLR 

49 

GO  TO  200 

CVLR 

50 

60  AIN(5)  = VAL 

CVLR 

5 1 

CALL  ENSHFHNXAEO,  3,  AIN(5)  ,PMTF> 

CVLR 

52 

60 

CALL  MODFYdO,  1,2,NXAEQ) 

CVLR 

53 

GO  TO  200 

CVLR 

54 

7 0 AIN  (6.)  = VAL 

CVLR 

55 

CALL  ENShFT(NCY0EQ,4,AIN(6),FMTF» 

cvlr 

56 

call  MJOFYdO,  l,2,NCYO'^Q) 

CVLR 

57 

65 

GO  TO  200 

CVLR 

53 

8J  AIM7)  = VAL 

CVLR 

59 

call  ENSHFT(NSLEQ,10,AIN(7),FMTF) 

CVLR 

b 0 

call  MODFYdO,  1,  2, NSLEC) 

CVLR 

61 

00  GO  TO  200 

CVLR 

62 

184 
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70 

100  GO  TO  ZOO 

CVLR 

61 

110  FH  = »AL 

CVLR 

bt 

CALL  ENSHFT1NMACHQ,9|FN,FMTFJ 

CVLR 

65 

call  HOOFTIIO,1,2,NMACHQ) 

CVLR 

6b 

GO  TO  ZOO 

CVLR 

67 

75 

120  ALPHA  = VAL 

CVlR 

68 

CALL  ENSHFT(NALPHA,6,ALPHA,FMTF) 

CVLR 

69 

call  MODFTTID, 1,Z,NALPHA) 

CVLR 

70 

GO  TO  ZOO 

CVLR 

71 

130  AINUll  = VAL 

CVLR 

72 

SO 

call  £NSHFT(NY:UEQ,10iAIN»11» ,FMTF) 

CVLR 

7i 

CALL  MOOFTIID, 1,Z,NT1U£Q) 

CVLR 

7>* 

GO  TO  ZOO 

CVLR 

75 

ILO  AIN<1Z)  = VAL 

CVLR 

76 

call  ENSHFTINYILEQ.IO ,AIH(12) ,FHTP) 

CVLR 

77 

85 

call  HOOFYCIOi 1, Z, NYILEQI 

CVLR 

78 

C 

CVLR 

79 

C DISPLAY  THIS  TEXT  ENTITY  WHICH  HAS  3EEN  CHANGED 

cv'lr 

80 

200  CALL  GENOFtID.CI 

CVLR 

81 

C 

CVLR 

82 

90 

C WAIT  FO«  AN  ATTENTION  SOURCE 

CVLR 

33 

CALL  HAITE<OUH,a,OUH,OUM) 

CVLR 

8h 

ENO 

CVLR 

85 
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10 


15 


OVERLAT(25,0»  CH&V 

PROGRAM  CHGV  CHGV 

COMMON/ICNTRL/ J ,ICRIT<2)  ,Ll<2)  ,IG0(2)  ICNTRl 

COMMON/ INPUTS  INPUT 

1 LRUPS<6)  ,LRSTG(5)  ,L  RAFU2  ( 6»  ,L  RAFL  2(  6)  , L RAFU  3 ( 6)  , L RX  OOQ<  6>  INPUT 

2 ,LR0IIi(6),LRXSF3(6)  ,lRXAUP(5)  ,LRCY0U(6I,li<XALR«6)  .lRCYDUG)  INPUT 

3 ,LRSLE0<6) ,LRMACR(6) ,LRALF4(6) ,LRYIU(5)  ,LRYIL(fa)  ,LRSTRT(6I  IN»UT 

4 ,LRNN1(6)  ,LRNA2(i)  ,lRNN3(6)  ,LRNN4(b)  ,lRNN5(6)  ,LRNN6(6>  INPUT 

5 ,NLGRN  j(-j)  ,NDARA3(6>  INPUT 

LL(J»  = LL(J)*1  CHGV 

IF  (LL(  J)  • lQ.  2)  CALL  CRASCCNLuRNG,  0)  C hG  V 

IF  (LL  ( J)  . FU.  5>  CALL  -I  RA  SF  ( NOARA  p , 0)  CrGV 

IF (LL( J) . £0. 21  call  GF nDF ( NPARA ? , 0 ) CHGV 

call  WAIT t <0UM , G ,0UM, OUM)  CHGV 

END  CHGV 
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OVERLaT<26,OI 

STOP 

2 

PR0GR4R  STOP 

STOP 

3 

COMMON^NCON^ 

ICON 

NCON 

2 

COHMON/INPUT/ 

INPUT 

2 

1 LRUPS(6) 

,LRSTG<6) 

,LRAFU2C61 

fLRAFL2(6) 

,LRAFU3(6) 

«LRX00a<6l 

INPUT 

I 

2 ,LR0IEa«6» 

iLRXSEQ(6) 

,lRXA'JPI6I 

,LRCTOU(ft) 

,LRXALM(6) 

«LRCTDL(6I 

INPUT 

4 

J ,LRSLEa(6) 

,LRMACHI6) 

,LRALFA«6) 

«LRriU(&> 

.LRTILto) 

,LRSTRT(6) 

INPUT 

5 

k ,LRNN1(6> 

,LRNA2(6) 

,LRNN3(6) 

,LRNN<»(6) 

,LRNN5(6) 

,LRNN6(6) 

INPUT 

6 

5 ,NLGRNG(b) 

, NPARAB(6> 

INPUT 

7 

COMHON/NOUT/ 

NAIRFL(6I 

NOUT 

2 

1 ,LR0EEa(6) 

, LRTS0a<6> 

,LRYSEQ<6I 

«LROOEQ(6) 

•LRRUEa(6) 

,LKUBEQ(6> 

NOUT 

3 

2 ,LRIO(S) 

,LRP0E0(6» 

,LRN0G0(6) 

.LRSUa(6) 

.lRSUPR(6) 

,LRFL0H(6) 

NOUT 

4 

COtiMON/NPRCO/ 

NCUPSU  6) 

,NCUPS2I6) 

,NCAFU2(6I 

,NL.AFL2(6) 

,NCAFU3<6I  . 

NPRCO 

2 

1 ,NCDWN1(6) 

,NC0HN2(6I 

,NPUPS1«6) 

,NPUPS2(6) 

,NPAFU1(6) 

,NPAFU2(6) 

NPRCO 

3 

2 ,NPAEU3<6) 

,NPAFL1<6» 

,NPAcl2(6) 

tNPOHNKSI 

,NP0HN2(6) 

>NUPS(61 

NPRCO 

4 

3 ,NAFH6J 

,NAF2 (61 

NPRCO 

5 

CO“MON/NAXES/ 

NALL(6I 

NAXE3 

2 

1 ,NNX9{6) 

, NUPBC&l 

,N0U0XB(6) 

,NAF3o(6> 

,NDHNa(&> 

,NKTA5  (6) 

NAXES 

3 

2 ,NX1B(6I 

, NX2B<6) 

,NYd(6) 

,NMa{6) 

,NH01U(6) 

,NN029(6) 

NAXES ■ 

4 

3 ,NQU1B(6) 

,N0U?3(o) 

,NDOOJ(6) 

,NP09  (6) 

,N°1 3(6) 

,NPKTAB(6) 

NAXES 

5 

STOP 

9 

ERASE  THE  SCREEN  OISPLAYS 

STOP 

10 

CALL  ASCAL(l) 

STOP 

11 

CALL  ENL9(0,1I 

STOP 

12 

call  ERASGTl) 

STOP 

13 

call  £RASG(2) 

STOP 

iH 

call  LRASE(NALH 

STOP 

15 

STOP 

16 

close  the  oata 

file 

STOP 

17 

CALL  CLOSE 

STOP 

13 

STOP 

19 

RELEASE  THE  CONSOLE 

STOP 

20 

CALL  SLCONtICON) 

STOP 

21 

END 

STOP 

22 
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II 


15 


20 


26 


30 


35 


40 


45 


50 


55 


60 


65 


C 

c 

c 

c 


c 

c 

c 


c 

c 


c 

c 


c 

c 


c 
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SUBROUTINE  PLOTH  X ININ , X IH**,  Y IHIN,  YIMAXJ 

THIS  SUBROUTINE  DISPLAYS  THO  OISJOIMTEO  CURVES  COVERING  THE 

GRAPHICAL  DISPLAY  AREA 

COHMON^OUTCONT 

I XH160)  ,Y1«160)  ,T2<160)  ,NN1  ,NN2 

C0HN0N/C0NNXY/NXTH6)  ,NXY2t6l 
COHNON/AINPUT/AIN<  24)  ,NNHT)  ,HI«6) 

IF  THERE  IS  ONLY  ONE  POINT  TO  3E  PLOTTED*  FORGET  IT  AND  PLOT  FOUR 

POINTS  ON  THE  SCREEN  TO  FORM  A LARGE  X COVERING  THE  SCREEN 
IFTNNI.GT.II  go  TO  5 
NNl  = 4 
Xl(l)  = XIMIN 
Xl(2)  = XIMAX 

XI  (3)  = XIMIN 
Xl(4)  = XIMAX 
YKl)  = YIMIN 
YK2)  = YIHAX 
YK3)  = YlMAX 
Yl(4)  = YIMIN 
XMIN  = XIMIN 
YMIN  = YIMIN 
XMAX  = XIMAX 
YMAX  = YlMAX 
NXYK5)  = a 
call  OLETEtNXYll 
NXYK5)  = 60 

call  AREAKXHIN, XMAX,  YMIN, YMAX) 
call  PLYLN<NXY1,1,XK1)  ,YK1)  ,3) 
call  G£NDP(NXY1,0I 
RETURN 

FIND  the  largest  ANC  SMALLEST  VALUES  OF  Y1 

5 CALL  AMXMN1(YMAX,YMIN) 

NXYK5)  = 0 
call  OLETE(NXYI) 

XMIN  = XI  (1) 

XMAX  = XI  (NNl) 

IF  (XIMIN. lT. XMIN)  XMIN  = X1MIN 
IF(XlMAX.GT.XMAX)  XMAX  = XIMAX 
IF(Y1MIN. LT.TMIN)  YMIN  = YIMIN 
IF (YlMAX. GT. YMAX)  YMAX  = YlMAX 

FIND  THE  NUMBER  OF  POINTS  IN  THE  FIRST  AND  SECOND  CURVES 
NNNl  = NNI<r)-l 
NNN?  = NNl-NNKF) 

IF(NNKT)  .EO.O)  NNN1  = NN1 
IF (NNl (T) .EQ. 0 ) NNN2=0 


CREATE  The  polyline  entity  FOR  THE  FIRST  CURVE 
NGRAFI  = 0 

IF(NNN1  .GT.bQ)  NGRAFI  = I 
IF (NNNl . G T . 120 ) NGRAFI  = 2 
IF(NGRAFl.EC.O)  GO  TO  30 

DO  20  1 = 1, NGRAFI  * 

NXYK5)  = I 

20  CALL  PLYLN(NXT1,1,X1(60*I-59)  ,Yl(60*I-59)  ,60) 
30  I F ( (NNN 1' 60* NGK AF 1- 1) . lE . 0 ) GO  TO  40 


NXYK5)  = NGRAFl  + 1 . 

CALL  PlYLN(NXY1,1,X1(1«-60*NGRAF1I, YKl*  60 ’NGRAFI), NNN  1-6Q*NGRAF1-1 


1) 


CREATE  THE  POLYLINE  ENTITY  FOR  THE  SECOND  CURVE 
40  NGRAF2=0 

IF(NNN2.GT.60) NGRAF2  = 1 
:f(NNN2.GT.120)  NGRAF2  = 2 
N1  = NGRAF1*2 


PLOTT 

2 

PLOTT 

S 

PLOTI 

4 

PLOTT 

B 

PLOTT 

1 

OUTCOH 

2 

OUTCOM 

1 

COHNXT 

2 

AINPUT 

2 

PLOTT 

10 

PLOTT 

11 

PLOTT 

12 

PLOTT 

IJ 

PLOTT 

14 

PLOTT 

1$ 

PLOTT 

16 

PLOTT 

IT 

PLOTT 

11 

PLOTT 

19 

PLOTT 

20 

PLOTT 

21 

PLOTT 

22 

PLOTT 

23 

PLOTT 

24 

PLOTI 

25 

PLOTT 

26 

PLOTT 

2T 

PLOTT 

21 

PLOTT 

29 

PLOTT 

30 

PLOTT 

J1 

PLOTT 

32 

PLOTI 

31 

PLOTI 

34 

PLOTI 

35 

PLOT! 

36 

PLOTI 

3T 

PLOTT 

31 

PLOTT 

39 

PLOTI 

4l 

PLOTT 

4l 

PLOTI 

42 

PLOTT 

4l 

PLOTT 

44 

PLOTT 

45 

PLOTT 

46 

PLOT! 

4T 

PLOT! 

41 

PLOTI 

49 

PLOTT 

50 

PLOTT 

51 

PLOTT 

52 

PLOTT 

51 

PLOT! 

54 

PLOTT 

55 

PLOTT 

56 

PLOTT 

5/ 

PLOTT 

51 

PLOTT 

59 

PLOTT 

60 

PLOTT 

61 

PLOTT 

62 

PLOTT 

61 

PLOTT 

64 

PLOTT 

65 

PLOTT 

66 

PLOTT 

6T 

PLOTT 

6* 

PLOTT 

69 
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TO 


T5 


BO 


85 


C 

C 


c 

c 


IFCNGRAF2.EQ.0)  GO  TO  60 
NZ  * N1*NGR»FZ-1 
00  50  I»N1,NZ 
NXV1I5)  = I 

NNNNl  » NMNlT60*lI-Nl+l>-58 
50  CALL  PLTLNCNXYIi  If  XUNNNNH  *THNNNNl)  ,60» 

60  IFi(NNNZ-60*NG«AFZ-ll .LE. 01  GO  TO  TO 

CALL  PLTLNTNXTlflf  XI ( NNN1»6 0*N6RAF2»2 ) |T1 (NNN1*60*NG9  AFZ*  Zl f 
1 NNNZ-60*NGRAFZ-1) 


CREATE  THE  GRIO  DISPLAY 
70  CALL  AREAUXHINfXHAXfYHINfYMAX) 
NXYH5)  = 0 

DISPLAY  THE  THO  POLYLINE  ENTITIES 
CALL  GENOF(NXYlfO) 

RETURN 

END 
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SUBROUTINE  PL OT T 1 < XIMIN , X IHAX , t IHIN #» 1N*X ) 

PLOTTl 

2 

PLOTTl 

I 

THIS  SUBROUTINE  DISPLATS  ONE  CURVE  IN  THE  GRAPHIC 

display  area 

PLOTTl 

4 

CONHON/OUTCONX 

OUTCOM 

2 

1 XKieOl  ,TK160«  ,T2(160)  ,NN1  ,NN2 

OUT  C OM 

3 

COHNON/CONNXT/NXYl <61  ,NXT2<6) 

COMNXY 

PLOTTl 

2 

r 

IF  THERE  IS  ONLT  ONE  POINT 

TO  BE  PLOTTED,  FORGET 

II 

AND  PLOT  FOUR 

PLOTTl 

s 

POINTS  ON  THE  SCREEN  TO  FORH  A LARGE  X COVERING  THE 

SCREEN 

PlOTTI 

9 

IMNNl.GT.ll  GO  TO  5 

PLOTTl 

ID 

NN  1 = 4 

PLOTTl 

11 

Xl(l)  = XIMIN 

PLOTTl 

12 

XK2)  = XIMAX 

PLOTTl 

13 

XK3)  = XlNlN 

PLOTTl 

14 

Xl(4)  t XIHAX 

PLOTTl 

15 

Tl(l)  = TININ 

PLOTTl 

16 

Y1  (2)  = YIMAX 

PLOTTl 

IT 

Y1(3>  = YIMAX 

PLOTTl 

' 18 

Yl(4)  = TIMIN 

PLOTTl 

19 

PLOTTl 

23 

FINO  THE  LARGEST  AND  SMALLEST  VALUES  OF  T1 

PLOTTl 

21 

5 call  AMXMNKYMAX.YMIN) 

PLOTTl 

22 

PLOTTl 

23 

CREATE  THE  POLYLINE  ENTITY 

FOR  NXYl 

PLOTTl 

24 

NGRAF  = 0 

PLOTTl 

25 

NXYK5)  = 0 

PLOTTl 

26 

call  OLETECNXYll 

PLOTTl 

2T 

XMIN  = XI  < 1) 

PLOTTl 

28 

. XMAX  = XKNNII 

PLOTTl 

29 

IF (XIMIN. LT.XMINI  XMIN  = 

X IMIN 

PLOTTl 

33 

IF(XIMAX.GT.XMAX)  XMAX  = 

XIMAX 

PLOTTl 

31 

IF(VIMIN.LT.YMIN)  YMIN  = 

YIMIN 

PlOTTI 

32 

IF (YIMAX . GI .YMAX)  TMAX  = 

YIMAX 

PLOTTl 

33 

IF<NN1.GT.60I  NGRAF  = 1 

PLOTTl 

34 

IF(NN1.GT.120)  NGRAF  = 2 

PLOTTl 

35 

IFINGRAF.EC. 0)  GO  TO  30 

PLOTTl 

3 6 

DO  20  1=1, NGRAF 

PLOTTl 

3? 

NXYK51  = I 

PLOTTl 

33 

call  PLYLN<NXY1,1,X1(60»I 

-59)  ,Yl<60»I-59)  ,60) 

PLOTTl 

39 

20  CONTINUE 

PLOTTl 

43 

30  NXYK5)  = 60 

PLOTTl 

41 

IF((NNl-60»NGRaF-l).LE.01 

GO  TO  40 

PLOTTl 

42 

call  PlYLN(NXY1,1,X1( 1Y60 

»NGRAF)  ,Y1<  1y60»NGRAF) 

,NNl-eo'NGRAF-l) 

PLOTTl 

4 3 

40  call  AREAKXMIN, XMAX, YMIN 

, YMAX) 

PLOTTl 

44 

NXYK5I  =0 

PLOTTl 

4 5 

PLOTTl 

46 

niSPLAY  The  POLYLIN.1  cNTITY 

FOR  NXYl 

PLOTTl 

47 

call  GEN0F(NXY1,0» 

PLOTTl 

4 3 

RETURN 

PLOTTl 

49 

EMC 

PLOTTl 

5 0 
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SUBROUTINE  PL0IT2 I XIMIN ,X IMAX ,Y1HIN ,T 1H*X 

:,T2MIN,Y2HAX,J) 

PLOTT2 

2 

C 

PL0TT2 

S 

C 

THIS  SUBROUTINE  DISPLATS  TWO  CURVES  IN  THE 

TMO  SUBAREAS  OF  THE 

PLOTT2 

4 

C 

GRAPHIC  DISPLAY  AREA 

PLOfT2 

5 

5 

c 

PLOTfZ 

6 

CONMON/OUTCOH/ 

OUTCON 

2 

1 Xl(160>  ,Y1(160)  ,Y2(160t  ,NN1 

,NN2 

OUTCOH 

I 

CONHONXCOHNXY/NXVl (6)  ,NXY2<6» 

COHNXY 

2 

c 

PL0TT2 

9 

10 

c 

IF  THERE  IS  ONLY  ONE  POINT  TO  dE  PLOTTED,  FORGET  IT  AND  PLOT  FOUR 

PLOTT2 

10 

c 

POINTS  ON  THE  SCREEN  TO  FORM  A LARGE  X COVERING  THE  SCREEN 

PL0TT2 

11 

IF(NNl.GT.l)  GO  TO  5 

PLOTT2 

12 

NN1  = 4 

PLOTT2 

11 

XI  (1)  = XIMIN 

PLOTT2 

14 

15 

XltZI  = XIMAX 

PLOTT2 

15 

XK3)  = XIMIN 

PLOTT2 

16 

XI  (41  = XIMAX 

PLOTT2 

IF 

Yltl)  = YIMIN 

PL0TT2 

IS 

Yl(2)  = YIMAX 

PL0TT2 

19 

20 

YK3)  = YIMAX 

PLOTT2 

20 

YK4I  = YIMIN 

PLOTT2 

21 

Y2(U  = Y2MIN 

PL0TT2 

22 

Y2(2)  = Y2MAX 

PL0TT2 

23 

Y2(3)  = Y2MAX 

PL0TT2 

24 

25 

Y2(4)  = Y2MIN 

PL0TT2 

25 

c 

PL0TT2 

26 

c 

FIND  THE  LARGEST  AND  SMALLEST  VALUES  OF  Y1 

PLOTT2 

22 

5 CALL  AMXMN1(YMAX,YMIN) 

PLOTT2 

28 

c 

PLOTT2 

29 

30 

c 

•CREATE  THE  POLYLINE  ENTITY  FOR  NXYl 

PL0TT2 

30 

NGRAF  = 0 

PLOTT2 

31 

NXYK5)  = 0 

PLOTT2 

32 

CALL  0LETE<NXY1I 

PLOTT2 

33 

XMIN  = XI  (1) 

PLOTT2 

34 

35 

XMAX  = XI  (NNII 

PLOTT2 

35 

IFiXlMIN. LT.XHIN)  XMIN  = XIMIN 

PLOTT2 

36 

IF(XIMAX.GT.XMAX)  XMAX  = XIMAX 

PLOTT2 

32 

IF (YIMIN. LT.YMIN)  YMIN  = YIMIN 

PLOTT2 

38 

IF(YIMAX.GT.YMAX)  YMAX  = YIMAX 

PL0TT2 

39 

40 

IF(NN1.GT .60)  NGRAF  = 1 

PLOTT2 

40 

IF(NN1.GT.120I  NGRAF  = 2 

PL0TT2 

41 

if(ngraf.ec.o)  go  to  30 

PL0TT2 

42 

DO  20  1=1, NGRAF 

PL0TT2 

43 

NXY1(5)  = I 

PLOTT2 

44 

45 

call  ply  LN(NXY  1,1,  XI  (60*1-59)  ,Yl(60*I-59) 

,60) 

PLOTT2 

45 

20  CONTINUE 

PL0TT2 

46 

30  NXYK5)  = 60 

PLOTT2 

42 

IF( (NN1-60*NGRAF-1) .LE.O)  GO  TO  32 

PL0TT2 

48 

CALL  PLYLN(NXY1,1,X1<1*60*NGRAF)  ,Y1(1*60* 

NGRAF)  ,NN1-60*NGRAF-1) 

PL0TT2 

49 

50 

32  CALL  AREA2(XMIN, XMAX, YMIN, YMAX, 1) 

PLOTT2 

50 

NXYK5)  = 0 

PLOTT2 

51 

c 

PLOTT2 

52 

c 

DISPLAY  THE  POLYLINE  ENTITY  FOR  NXYl 

PLOTT2 

53 

call  GENOF(NXY1,0) 

PLOTT2 

54 

55 

IF(J.EO.l)  RETURN 

PLOTT2 

55 

call  AMXMN2(YMAX,YMIN) 

PLOTT2 

56 

NXY2(5)  = 0 

PLOTT2 

52 

call  0LETE(NXY2J 

PLOTT2 

5 8 

IF(NNI.LE.I)  go  to  50 

PLOTI2 

59 

60 

IF(Y2MIN. LT.YMIN)  YMIN  = Y2MIN 

PLOTT2 

60 

IF  (Y2MAX.GT.YMAX)  YMAX  = Y2MAX 

PLOTT2 

61 

c 

PL0TT2 

62 

c 

CREATE  THE  POLYLINE  ENTITY  FOR  NXY2 

PLOTT2 

63 

IF (NpRAF. EO. 0)  GO  TO  50 

PLOTT2 

64 

65 

DO  40  1=1, NGRAF 

PLOTT2 

65 

NXY2(5)  = I 

PLOTT2 

66 

40  call  PLYLN(NXY2,1,X1(60*I-59)  ,Y2(60*I-59) 

,60) 

PLOTT2 

62 

50  NXY2(5)  = El 

PL0TT2 

68 

IF  ( (NN1-50»NGRAF-1)  .LE.  0)  GO  TO  60 

PL0TT2 

69 
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CALL  PLYLNJNXf  2, 1 , XU  14-6  0»NGRAFI  ,T2  < !♦  6 0»  NG  RA  F)  , NNl -6  0 • NGR  A F - 1> 

PLOTT2 

70 

60  CALL  AREA2«Xt1IN,XMAX,YNIN,YI1AX,?) 

PLOTT2 

71 

NXY2(5I  = 0 

PLOTT2 

72 

c 

PLOTT2 

73 

c 

DISPLAY  THE  POLYLINE  ENTITY  FDR  NXY7 

PLOTT2 

74 

75 

CALL  GENOFINXY2,0) 

PLOTT2 

75 

RETURN 

PLOTT2 

76 

END 

PL0TT2 

77 
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SUBROUTINE  ARE A1  ( XNIN , XHAX,rttIN ,rNl XI 

AREAl 

2 

AREAl 

1 

THIS  SUBROUTINE  OETERHINES  THE  GRID  DISPLAY  FOR  A GRAPH  COHERING 

AREAl 

THE  ENTIRE  GRAPHIC  DISPLAY  AREA 

AREAl 

5 

AREAl 

6 

COHNONXISSCAL/IDSCAL 

ISSCAL 

2 

OIHENSION  ALIH(l>)  ,USER(A) 

AREAl 

S 

DATA  ALIH/-A0.|-«*0.,57.,5T./ 

AREAl 

9 

OX  = XHAX-XHIN 

AREAl 

10 

DY  = YHAX-VNIN 

AREAl 

11 

USERID  = XMIN 

AREAl 

12 

USERC2I  = YMIN 

AREAl 

13 

USERID  = XHAX 

AREAl 

IT 

USERID  = YHAX 

AREAl 

IS 

lOSCAL  = 2 

AREAl 

16 

CALL  SSCALIIOSCAL,AlIH,USER) 

AREAl 

IT 

CALL  ASCALIIOSCALI 

AREAl 

IS 

call  GRONHIIOSCALI 

AREAl 

19 

CALL  CGRID1VI2,XHIN,XMAX,  THIN , Y HA  X , DX , 0 Y, 0 , 0 , 1 f If  6,  6) 

AREAl 

20 

CALL  RTNIOIIOA) 

AREAl 

21 

RETURN 

AREAl 

22 

END 

AREAl 

23 
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SUBROUTINE  AREft?(XMIN,XHAX,YNIN,VNAX,IOI 

AREA2 

2 

AREA2 

J 

THIS  SUBROUTINE  CREATES  THE  GRID  DISPLAY  FOR  A GRAPH  COVERING  A 

AREA2 

SUBAREA  OF  THE  ENTIRE  GRAPHIC  DISPLAY  AREA  OlPENOING  ON  ID 

AREA2 

5 

AREA2 

6 

cohhon/isscalfioscal 

ISSCAL 

2 

DIMENSION  ALIMI4,Bt  ,USER(i.  ,2) 

AREA2 

9 

DATA  ALIM/-i*0.,-40.,57.,10.,-‘*0.,1T.,5T.,5T./ 

AREA2 

9 

USERd.IO)  = XMIN 

AREA2 

10 

USER(2,ID)  = YMIN 

AREA2 

11 

USER(J,ID)  = XMAX 

AREA2 

12 

USER(<.,IO)  = YMAX 

AREA2 

13 

DX  = XMAX-XrtIN 

AREA2 

1* 

OY  = YHAX-YNIN 

AREA2 

15 

IDSCAL  = IO»2 

AREA2 

16 

call  3SCAL(IOSCAL,ALIH(1,IO),USER(1,ID)> 

AREA2 

IT 

call  ASCAL(IDSCAL) 

AREA2 

19 

call  GRDNK IOSCA,.) 

AREA2 

19 

call  CGRID1V(2,XHIN,XHAx,YMIN,YMAX,OX,OY,0,Q,1|1>6)6) 

AREA2 

20 

CALL  RTNIJ(IDA) 

AREA2 

21 

RETURN 

AREA2 

22 

ENO 

AREA2 

23 

I 
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SUBROUTINE  AHX HNl 1 TIHAX ,Y IHIN) 

AHXHNl 

2 

AHXNNl 

J 

THIS  SUBROUTINE  OETERNINES  THE  LARGEST  AND  SMALLEST  VALUES  FOR  VI 

ANXNNl 

4 

ANXNNl 

5 

COMHON/OUTCON/ 

OUTCOH 

2 

1 XK160I  tVl(163)  •V2(16a>  ,NN1  ,NNE 

ourcoN 

S 

YIMAX  = ritu 

ANXNNl 

T 

YININ  = THU 

AHXNNl 

8 

DO  20  I=2|NN1 

AHXNNl 

9 

IF(THI) -TINAXJ  15,15,12 

AHXHNl 

10 

12  YIMAX  = TUI) 

AHXNNl 

11 

GO  TO  20 

AHXHNl 

12 

15  IF(Y1(I)-T1>1INI18,20,20 

AHXHNl 

13 

18  TININ  = TUI) 

AHXHNl 

1« 

20  CONTINUE 

AHXHNl 

15 

RETURN 

AHXHNl 

16 

END 

AHXHNl 

IT 
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5 


10 


15 


SUBROUTINE  ftMX MN2 ( Y2M«X ,T 2HIN) 

THIS  SUBROUTINE  UETERHINES  THE  LARGEST  AND  SNALlEST  VALUES  FOR  Y2 
CONMONFOUTCOM/ 

1 Xl(160)  ,Y1(160)  ,Y2(160)  ,NN1  ,NN2 

Y2MAX  = Y2(l» 

Y2MIN  = Y2(l) 

DO  30  1 = 2, NNl 

IF(Y2(II  -Y2NAXI  25,25,22 

22  Y2MAX  = Y2(I) 

GO  TO  30 

25  IF(Y2(Il  -Y2HIN1  2 9,3  0,30 

29  Y2MIN  = Y2(I) 

30  CONTINUE 
RETURN 
END 


AMXHN2 

2 

AMXMN2 

3 

AMXMN2 

•* 

AMXHN2 

5 

OUTCOM 

2 

OUTCOM 

3 

AHXMN2 

T 

AMXMN2 

8 

AMXNN2 

9 

AMXMN2 

10 

AMXMN2 

11 

AMXMN2 

12 

AHXHN2 

13 

AMXMN2 

1» 

AMXMN2 

15 

AMXMN2 

16 

AMXMN2 

17 
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